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EDITORIAL 


SECOND PROCESSORS 

Last month we were able to report on the launch of Acorn's 6502 Second Processor, 
claimed by Acorn to be the most important event since the launch of the ВВС micro 
itself. You may wonder, in looking at the contents of this issue, why we are not 
reviewing this major enhancement. The reason is quite simple: in common with most of 
the other computing magazines, our review system arrived nearly eight weeks after 
the launch date, not quite in keeping with Acorn's claim at the launch that Second 
Processors were in stock in the warehouse. Despite this, we are very excited by the 
6502 Second Processor and the Bitstik graphics system. Our review will appear next 
month, and we shall be telling you of the problems as well ав the advantages of 
using the 6502 Second Processor. 


May also sees the launch of the Acorn 780 Second Processor, clearly aimed at the 
business market with the extensive applications software that is bundled in as part 
of the package. We shall be reviewing this as well, as soon as we receive one! 


THIS MONTH'S MAGAZINE 

Amongst the many interesting articles and programs in this month's issue, I would 
particularly draw your attention to two. The first is another graphics program, 
allowing you to zoom in оп any drawing you create at a tremendous magnification. We 
found this во fascinating that we have also created a competition (the Zoom 
Treasure Hunt) to go with this article, though, for technical reasons this is only 
feasible on the magazine cassette, and not printable in the magazine itself. 


The other program is a major utility, primarily for disc users, that allows you 
to create Basic programs whose length is not at all limited by the physical memory 
available in the Beeb. This 'Virtual Memory' system will be a real boon to disc 
users, who have less memory to work with than cassette users. Mike Williams 


TICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOAR 


BEEBUG'S ROM RULE 

We have published a number of hints and tips in recent issues arising from 
clashes between the command sets used Бу different pieces of ROM software. BEEBUG 
has proposed a standard to resolve this problem. This allocates a unique letter (А 
to Z) to each software house, and this letter in turn can be used to optionally 
precede any command and give it a unique identity. BEEBUG has allocated 'B' for its 
own use, and in all future issues of ROM software, such as Toolkit, any command can 
be preceded by this letter to avoid confusion with any other ROM installed at the 
same time. So far the letter "С" has been agreed with Computer Concepts, who have 
also adopted this standard, "А" has been reserved for Acorn Computers, and 'W' for 
Watford Electronics. 


HINT WINNERS 
This month the hint winners are G.Middleton who wins the #10 prize апа 
R.M.Blackall who wins the £5 prize. Keep sending those hints in please. 


MAGAZINE CASSETTE 

This month's magazine cassette contains, in addition to all the programs printed 
in the magazine, the data file for our Zoom Treasure Hunt competition and the 
winning entry by Bill Wilkinson іп our 'Niagara Falls' Brainteaser Competition. Тһе 
results of this, and a new Brainteaser, appear in this month's supplement. 


MAGAZINE DISC 
We have been unable to finalise the arrangements for producing the magazine 
'cassette' on disc. We expect to conclude the details in time for inclusion in next 


month's issue. 
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ZOOM (32K) 


by Pete and Derek Chown 
IEGEVSPTIETA TE SA ME ls SIRI IO TECTUM RS ESE EB ғалы ELPA ЧЕЛДЕП o.o 


For such a short program this one is remarkably entertaining. It 
allows you to zoom in and out of any picture you create with 
magnifications of up to 10 million! It is based оп a perfectly 
serious application in Computer-Aided Design (CAD), but can be used 
to construct line drawings of high precision, or light-hearted 
sketches containing microscopic detail for a game of "Hide and 
Seek". 


INTRODUCTION 

You will remember from the BBC TV 
series, "The Computer Programme", the 
demonstration in which a house was 
shown with a globe in the window. The 
picture was magnified to show the 
British Isles on the globe. On the map 


keys and a line will be drawn (holding 
down Shift at the same time moves the 
cursor much faster). Use different 
cursor keys and the line can be moved 
as if connected to the starting point 
by a piece of elastic. 


was a house. In the window of the house 
was a globe... All that is possible on 
the BBC Microcomputer and with this 
little program. If you have a printer 
with graphics capability, you can add 
your own routine to print the results. 


When the line is where you want it, 
press D for "draw" and the line becomes 
fixed. If you merely wish to move the 
starting point of the line without 
drawing it, press M for "move". So the 
procedure is: stretch the elastic to a 


new position, and then press either D 


The 'ZOOM' program allows you to or M. This is vastly superior to the 
produce line drawings, and at any "Sketch" method on the BBC "Welcome" 
Stage, enlarge or reduce the size of cassette. 


the picture. This allows details to be 
drawn much larger than their final size 
for accurate results, and also allows 
part of a picture to Бе. hidden, by - Move 


ZOOM Key Functions 


reducing it so small that it is no - Draw fü - Save screen 
longer visible on the screen. The - Remove fl - Load screen 
program is entirely in Basic, and - Scale 
should be quite straightforward to type - Print 


in and save on cassette or disc. 
Cursor keys move cursor 


USING THE ZOOM PROGRAM 

Only six commands plus the four 
cursor-control (arrow) keys and the 
Shift key аге used to achieve the 
pictures accompanying this article. 
When you run the program a small dot 
will appear in the centre of the 
Screen. This is the position of the 
cursor. Hold down one of the cursor 


The third command, Ry is for 
"remove". This will delete the last 
line that was drawn. If you hold down 
the key 'R', the program will keep 
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deleting lines, until all the lines 
have been removed. If removal of a line 
leaves a 'hole' in any remaining line, 
then the drawing can be 'repaired' by 
re-drawing with a scale of 1 (see 
later). 


The fourth command is S for "scale". 
Type S and the word "Scale:" appears in 
the top left corner of the screen. Then 
type in a positive number for the 
magnification you require, 
e.g. 2 = twice as big, 0.5 = half as 
big, 1 = same size. When Return is 
pressed the picture is re-drawn centred 
on the latest position of the cursor. 


The command, P for "print", is only 
useful if you have a graphics dump 
routine and a printer. Press 'P' at any 
time to print the current screen 
display. Тһе program listing shows 


where а printer dump routine (ог 
command to one of the new printer dump 
ROMS like Printmaster) should be 
inserted. 

We have also incorporated а simple 
facility to save and load screen 


displays, using the two function keys 
fü for save and fl for load. In each 
case the program will ask you for the 
filename to save or load. Be careful 
when saving and loading (especially оп 
disc), as pressing fl instead of #0 
will delete the current picture in 
memory, and pressing fø instead of f! 
will wipe out a file on disc (but not 
cassette). 


ZOOM IN PRACTICE 

Some useful features of this program 
are the ability to create precise 
drawings, by building your picture up 
on a large scale, and then shrinking it 
down to size. You can also translate 
your shape in any of four directions. 
For example, if you have a square in 
the middle of the screen, then move the 
cursor to the top right-hand corner of 
this square. The press 'S' and choose a 
scale of 1 (same size). The square will 
now be re-drawn with the top right-hand 
corner in the middle of the screen. 


LIMITATIONS 


The program at present will allow 
drawings to be created with up to 600 
points, set in the program at line 110. 
This could be increased and the 
ultimate limit is like to be determined 
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by the amount of memory available for 
storing the lengthy arrays declared at 
line 399. 


Using the scaling feature actually 
changes the stored data values. If you 
magnify any part of your drawing by 
more than about 10 million, you will be 
exceeding the accuracy of the micro and 
the results may be unrecogniseable. You 
may also find that because the stored 
data has been changed, you cannot 
reduce the picture correctly back to 
the original version. A screen will 
always be saved at е current 
magnification. 


ZOOM FOR FUN 


The program really is great fun to 
use, and you can puzzle your friends by 
hiding some minute detail somewhere in 
a picture and challenging them to find 
what it is. If you try this, we have 
found that it is better to start at the 
highest level and gradually magnify 
parts of the picture as you get more 
and more detailed. If you start with 
the smallest details and gradually 
reduce these to hide them, you are like 
to find a very obvious 'blob' being 
drawn as part of the initial picture, a 
real give away to the location of the 
hidden detail. 


The pictures with this article show 
one such sequence. The first shows a 
window with a view of the stars in the 
Sky (actually the constellation of 
Orion). If you zoom in on one of the 
stars in Orion you will see a planet 
surrouded by asteroids. Magnifying the 
central planet will reveal the outline 
of some continents and an island, and 
further magnification of the island 
will show first the road system on the 
island, and finally a city of tall 
buildings. One point you soon realise 
is that you only have to be as little 
as a millemetre out initially to be a 
100 kilometres adrift at a 
magnification of 10 million. 


ZOOM TREASURE HUNT 


Because ZOOM is such an interesting 
program we have provided a data file, 
DZOOM, on the magazine cassette for you 
to explore. Unfortunately the data file 
is much too large and in the wrong 
format to be included in the magazine 
itself. If you search hard enough you 
will find the пате  'BEEBUG' hidden 
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somewhere in the picture you see here. 
Tell us where 'BEEBUG' is located and 
we will award a prize of a Computer 
Concepts Graphics ROM to the first two 
correct answers opened. Send all 
entries to the editorial address, and 
mark the envelope 'ZOOM'. Good zooming! 


10 REM PROGRAM ZOOM 

20 REM AUTHORS P.CHOWN A.WEBSTER 

30 REM VERSION B0.6 

40 REM BEEBUG JUNE 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


100 ON ERROR GOTO 390 

110 пр%-600 

120 *FX4,2 

130 *K.0 2 

140 *К.1 y 

150 *К.10 |00. |M 

160 *K.12|H 

170 *K.13|I 

180 *K.14|J 

198 *K.15|K 

200 *FX12,3 

210 : 

220 MODE 4 

230 VDU19,1,2,0,0,0 

240 X=639.5:Y=511.5 

250 oldX-X:oldY-Y 

260 pnt$-0 

270 DIM endx (np$) ,endy (np%) ,startx (np 
$) ,starty (np$) 

280 GCOL 4,0 

298 PROCline 

300 REPEAT 

310 VDU4: PRINTTAB (30,0) ;pnt$; SPC(5) :V 
DU5 

320 COMS-GETS:*FX15,0 

330 IF COMS-"P" PROCdump 


340 PROCline 
350 PROCcom 
360 PROCline 
370 UNTIL 0 


390 ON ERROR OFF 
400 *FX4 
410 *FX12 
420 MODE 7 
430 IF ERR-17 END 
440 REPORT:PRINT" at line ";ERL 
450 END 
460 : 
1000 DEF PROCline 
1010 MOVE oldX,oldY 
1020 *FX19 
1030 PLOT21,X,Y 
1040 ENDPROC 
1050 : 
1060 DEF PROCcom 
1070 IF INKEY-1 С-32 ELSE С-4 
1080 IF COMS=CHR$(8) OR COMS-CHR$ (140) 
Х-Х-С 
1090 IF COMS-CHR$(9) OR COM$=CHR$ (141) 
X=X+C 
1100 IF COMS=CHRS$(1@) OR COMS=CHRS (142 
) Ү=Ү-С 
1110 IF СОМ5-СНВ5(11) OR COMS-CHRS (143 
) Y=¥+C 
1120 IF COMS="M" oldX-X:oldY-Y 
1130 IF COMS="D" GCOL 0,1:MOVE X,Y:DRA 
W oldX,oldY:GCOL 4,0:startx(pnt$£)-oldX: 
starty (pnt%) =oldY:endx (pnt%) =X:endy (pnt 
$) =Y:pnt=pnt3+1 :oldX=X:oldY=Y 
1140 IF COMS="R" AND рпЕ%<>0 pnt$-pnt$ 
-1:GCOL0,0:MOVE startx(pnt%) ,starty (pnt 
$) :DRAW endx (pnt£) ,endy (pnt%) :GCOL4,0 
1150 IF COMS="S" AND pnt%>@ PROCscale(1) 
1160 IF COMS="z" OR COMS="y" PROCSavel 
oad 
1170 ENDPROC 
1180 : 
1190 DEF PROCScale(sc) 
1200 IF sc-0 GOTO 1240 ELSE MOVE 0,1023 
1150 IF COMS="S" AND pnt%>@ PROCscale(1) 
1160 IF COMS="z" OR COM$-"y" PROCsavel 
oad 
1170 ENDPROC 
1180 : 
1190 DEF PROCscale(sc) 
1200 IF sc-0 GOTO 1240 ELSE MOVE 0,1023 
1210 VDU5:GCOL 4,0:INPUT "Scale:" SCALES 
1220 SCALE-VAL (SCALES) 
1230 IF 5СА,Е<-0 VDU 7:ENDPROC 
1240 CLS:GCOL 0,1 
1250 FOR I$-0 TO pnt%-1 
1260 startx(I2)- (startx(I£2) -X) *SCALE+6 
39.5:starty(I£)- (starty (I$) -Y) *SCALE+51 
155 
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1270 endx (1%) =(endx (1%) -X) *SCALE4639.5 1420 IF COMS="y" GOTO 1500 
:endy (1%) = (endy (I$) -Y) *SCALE+511.5 1430 X-OPENOUT Ғп5 
1280 IF ABS(startx(I2))«32768 AND ABS( 1440 PRINT $X,pnt$ 
starty(12))«32768 AND ABS (endx (12) ) «327 1450 FORp-üTOpnt$ 


68 AND ABS(endy(I2$)) «32768 MOVE startx( 1460 PRINT #X,startx(p) ,starty(p) ,endx 
I$),starty(I$):DRAW endx (1%) ,endy (I2) (p) ,endy (p) 

1290 NEXT 1470 NEXT 

1300 Х=639.5:Ү=511.5:01аХ=Х:о1аү=ү 1480 CLOSE#Ø 

1310 GCOL 4,0:VDU 7 1490 GOTO 1570 

1320 ENDPROC 1500 : 

1330 : 1510 Х-ОРЕМІМ Ғп5 

1340 DEFPROCdump 1520 INPUT #X,pnt% 

1350 REM VDU5:*GDUMP! 1 1530 FORp-O0TOpnt$ 

1360 ENDPROC 1540 INPUT #X,startx(p) ,starty(p) ,endx 
1370 : (p) ,endy (p) 

1380 DEFPROCSsaveload 1550 NEXT 

1390 VDU4:VDU31,9,9 1560 CLOSE40 

1400 IF COMS="y" PRINT " Load "; ELSE 1570 ЅСАГЕ=1 :Х=640:Ү=512:РКОСѕса1е (9) : 
PRINT " Save "; *FX15 

1410 INPUT"Filename :"fn$:CLS:VDU5 1580 ENDPROC =] 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


WHICH DISC DRIVE ? - R.M.Blackall 
Location &lÜCB, contains the number of the current disc drive (Acorn DFS 0.90). "xmi 


MORE PERMANENT *TV EFFECT - - б. Mi AME кай 
For those who would like to maintain a *TV type shift for the duration of a 
session on their Beeb; try the following short routine. 
10 MODE7 
20 *FX247,0 
30 *FX248,0 
40 *FX249,0 
50 INPUT"Screen shift",X$ 
60 INPUT"Interlace (ON/OFF)",YS 
70 IF Ү5-"ОМ" THEN Y$-0 ELSE Y$-1 
80 Р%-8А01:(ОРТ1:.55 LDA#&90:LDX#X%: LDY#Y% : JSR&FFF4:RTS 
90 .start LDA#&F7:LDX#&4C: JSR&FFF4: LDA#&F8:LDX#SS MOD 256:JSR&FFF4: LDA#&F9: LDX#S 
S DIV 256:JSR &FFF4:RTS] 
100 CALL start =] 


ASCII VALUE AT THE CURSOR - T. Powys- Debe 
Is this the shortest way to find the ASCII value of the character at the text 
cursor, and the current screen mode ? (А%,М% return ASCII value, current mode 
respectively.) 
DIMQ$3:A$-2135:!Q$-USR&FFFE4: Бард Re s 


THE SHORTEST GAME ? - ROGER JANE 
(See the previous shortest Vol.2, No.6, p.19 - after the REM statements have been 
removed). 
0Н%=0 : REPEATMODE7 : VDU28 ; 24, 39; : P$-&7C64 : S$-0: REPEAT?P$-86: PRINT" | "TAB (RND (38) ) "* 
"TAB (39) "| "CHRS13; :P%= (P$+INKEY (-98) -INKEY (767) -19) M0D38*&7C51:S$-S$41:UNTIL?P$- 
42:H$-H$* (S$5H$)* (H$-S$) : VDU7: PRINT'"Score:"S$'"Hi: "H$'"Press 
space: ";:REPEATUNTILGET-32:UNTILÓ 
Unfortunately there are no instructions with this, but the Z and X keys control left 
and right directions of movement. Imagination dictates that you have to pilot a 
spaceship safely through a meteor storm! Now try it for yourself, or perhaps you 


have a better one ! 
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А LOOK BACK АТ BASICODE 


by Steve Fox 


BBC Radio 4 has 
computer 
Basicode. 


Basicode is the 


brain-child of a 
handful of Dutch 
computer enthusiasts. 


The idea is to package 
a Basic program in such 
a way that it will run 
on a variety of 
different machines, and 
to build up a stock of 
non-copyr ighted 

software, written by 
amateurs for amateurs. 
The programs are to be 
made available to the 
widest possible group 
of users via the 
domestic radio services 
of the countries 
participating. Radio 
Hilversum broadcasts 
them at 1840 GMT each 
Sunday on 747 kHz апа 
West Germany also 
participates. The BBC, 
perhaps fearing adverse 


listener reaction to 
the unmusical tones, 
has so far confined 


transmissions to the unsocial hour of 
0023 hrs GMT. The first series of 
broadcasts, associated with the Radio 4 
"Chip Shop" programme, is now at an end 
but doubtless a further series will 
follow. 


The Basicode system has to overcome 
two problems in order to make a program 
readable by a range of machines. 
Firstly, the tones transmitted (or 
recorded on cassette) must be 
comprehensible to the operating system, 
and secondly the Basic statements must 
be capable of interpretation by the 
computer's Basic ROM. To make these 
things possible, different computers 
must be provided with a different 
software interface. The BBC supplies, 
for a modest £3.95, all the software 
necessary to load а Basicode program 
into a range of popular machines - 
Apple, Sinclair, Commodore, Tandy, etc, 


come to an end, at least for the moment, 
back, and assesses its value. 


recently completed a series of broadcasts of 
programs using an Esperanto form of Basic known as 
Now that this 'Take Away' service, as it was called, has 


Steve Fox takes a look 


"Basicode Save" programs to enable the 
user to produce a Basicode version of 
his own software. Some micros also need 
additional hardware to be built, but 
this is fortunately not necessary for 
the Beeb. 


The Basicode signal is ап А5СІІ 
listing of the program made up of bits 
which are serially transmitted at 1200 
Baud (bits per second). Тһе obvious 
method of coding would be to send one 
cycle of 1200 Hz tone for a !1" and 
1/1200th of а Ssecond's silence for а 
zero. However, this would mean that 
system noise might generate а '1' for a 
zero, so Basicode defines a 'l' as two 
cycles of 2400 Hz tone and a zero as 
one cycle of 1200 Hz tone. To make the 
system even more robust, each byte is 
preceded Бу а startbit (logic 0), апа 
is followed by two stopbits (logic 1). 
At the end of each program, a special 
8-bit word called а  checksum is 
included. By carrying out an EOR 
calculation on the preceding bytes it 
is possible to check that they have 
been successfully read. If not, а 
checksum error is declared by the 
loading program, and it is up to the 
user to scrutinize the listing to try 
and find where the program has been 
mis-read. Notice that at this stage the 
computer has not recognized the data as 


a Basic program, so until "RUN" is 
entered no error messages can be 
issued. 


Because Basicode statements have to 
be acceptable by the full range of 
machines, each with its own Basic 
dialect, it follows that the programs 
have to be written using only those 
statements which аге common to all. 
This is а very severe limitation 
indeed, especially for BBC Micro users. 
Gone are procedures, graphics 
Statements, sound statements, assembler 
language, and *FX commands, to name but 
a few! With Basicode, we enter the 
colourless world of basic Basic. Is it 
worth it? Well, read on... 


and of course the BBC micro. Also ae : 

include 1 лса E The original Basicode was so crude 
сш виз, еркгезропсдоч. канде 79 that, as there exists no universal 
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statement for "Clear the screen", it 
couldn't be cleared! But then it was 
realized that what was needed was a 
mechanism for interpreting a number of 
universal commands into the "local" 
lingo. Basicode 2 issues these commands 
in the form "GOSUB (line no.)" and the 
Loading program appends to the front of 
the main program, lines which will 


interpret such commands. Тһе main 
program might, for example, begin "1000 
GOSUB 100", and if yours is a BBC 
machine the Loader will supply the 


subroutine at line 100 in the form: 
"CLS:RETURN". Altogether there are a 
dozen such subroutines for a carrying 
out such highly desirable tasks as 
positioning the cursor, inputting from 
the keyboard, giving random numbers, 
beeping and print-formatting. To jump 
over these sub-routines the first line 
has to be "10 GOTO 1000". In addition 
to these customized  sub-routines, the 
Loaders may carry out some special 
modifications to the listing. BBC Basic 
is unusual in that it doesn't require a 
space to be left after the line number 
and in the use of LN rather than LOG 
for logs to the base 'e'. 


These changes are taken care of by 


the  Basicode Load program, which 
consists of an instruction screen at 
Page &Е00 (or &1900 for disk users), 
the subroutine lines which are 


initially stored at Location &77FE, and 
a machine code program starting at 
location &7979, and running up to the 
Mode 7 screen at &7C00. The normal load 
consists of shifting down to PAGE the 
sub-routines (over-writing the 
instructions) and then appending the 
decoded listing as it is read off tape. 
Once in memory, the program can be RUN 
and SAVEd like any other 
straightforward Basic program. 


Writers of Basicode Basic have to 
observe а few more restrictions. 
Lower-case letters are not allowed, nor 
are integer variables. Real variables 
are single-precision only. А screen 
size of 24 by 40 is standard, but 
larger sizes (including Modes 6 and 7) 
are OK. The names of variables must not 
be more than two characters long апа 
must not begin with "O". 


With such depressing restrictions, I 
expected little of the sample programs 
on the "Chip Shop" cassette, kindly 
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supplied by the BBC, and indeed the 
presentation of them all does leave 
very much to be desired. Four or even 
three years ago, this tape would have 
been thought а goldmine, but in 1984 
such packages, as they stand, cannot be 
acceptable to the BBC micro user. 
However, if one looks below the surface 
at the program ideas themselves, 
Several are indeed good, and well worth 
the effort of rewriting using the full 
range of facilities on the Beeb. 


Items which particularly appeal to 
me are: "Chords", guitar fingering to 


order, "Yahtzee" (similar to 'Five 
Dice'; BEEBUG Уо1.1 No.9), a game of 
chance (of which the rules are fairly 


easy to guess if you don't know them 
but which aren't properly explained), 
and Mezirac's Squares. Тһе Germanic 
humour in "Titration" is a bit heavy, 
but it makes one of the  duller 
processes of chemistry seem like fun, 
which is surely the measure of any good 
educational program. 


I also made one or two off-air 
recordings and, there were no technical 
problems, but the programs I "took 
away" are in fact the same as those оп 
the cassette. 

The ultimate value of the Basicode 

experiment lies in the quality (and 
quantity) of the software which people 
are prepared to donate or sponsor. Some 
of the present software carries words 
of encouragement aimed at getting the 
reader to "do his bit", but without a 
few carrots being offered by the BBC, 
I'm not too optimistic about the future 
of the project. I feel too that BBC 
micro users would be better served if 
the free software which appears on 
CEEFAX were to be broadcast as tones 
for direct recording on cassette, 
instead of being available only to 
those who are willing to invest in a 
Teletext Adaptor. The BBC's 
Telesoftware may not be too wonderful, 
but most of it is written for the BBC 
micro, and so doesn't suffer from the 
over-simplification demanded by 
Basicode. 
The Chip Shop cassette and Basicode 
manual are available at £3.95 including 
postage and packing from Broadcasting 
Support Services, PO Box 7, London W3 
6XJ. This must be the bargain of the 
year! 
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ЕНЕ Sas 
MUSIC WHILE YOU WORK (16K) * =` 


by David A. Fell 


mI Leg 


-ө. Be 
SS 


Some people find that they can concentrate much better if there is 


some background noise, preferably music, continually playing whilst 
they are working. In this article we show you how your Beeb can be 
made to play the music of your choice while you continue using the 
machine for programming, word processing or whatever else takes your 
fancy (apart from commercial machine code games). 


Sometimes, even using your Beeb can 
become a little boring, such as waiting 
for a cassette file to load, or listing 
a long program out to a printer. The 
programs described here can liven up 
these moments (and others) by playing 
music at the same time using 
interrupts. These are used continually 
by the operaing system, but in the 
packaged form of 'events' (see BEEBUG 
Vol.2 No.8) they can also perform 
operations for the user. The programs 
listed here allow for you to generate a 
data file (containing a tune), and then 
play this tune using a special ‘event 
driven' routine. 


The main program 'MUSIC' assembles 
and saves a machine code routine that 
plays the tune. The program is well 
anotated, and has been kept as short as 
possible. To use it, you will also need 
a data file holding a sequence of bytes 
that correspond to the tune that you 


wish to play. The program 'CREATE' 
allows you to generate such a data 
file. 


The first step is to type the two 
programs in, and to save them before 
running (this is especially so for the 
MUSIC program, as any mistake in 
entering this could result іп your 
program being corrupted). Once this has 
been done, you should run the MUSIC 
program. This will pause briefly while 
it assembles, and then *SAVEs the 
resulting machine code program under 
the name TUNE. 


The next stage is to run the CREATE 
program. This short Basic program is 
used to enter the tune to be played and 
to create a corresponding data file. 
When using CREATE, you will be prompted 
to enter a group of four numbers, the 
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same as you would enter in a normal 
Basic SOUND statement. For example; 


SOUND 17,-10,200,3 


would be entered simply as 
17,-10,200,3. To create а tune, just 
keep entering the notes until you reach 
the end. Once you have finished 
entering the data, just type 0,0,0,0. 
This will cause the data to be saved as 
a file called DATA. Incidentally, you 
cannot have more than 255 notes, nor 
less than two. (The data supplied will 
play ‘Jesu Joy of Man's Desiring' from 
Bach's Cantata No.147, as we listed іп 
BEEBUG Vol.2 No.9.) 


If you have a word processor such as 
Wordwise, you might find it easier to 
build up a text file that contains your 
data. The file should start with 

OLD 

RUN 
followed by the data for the tune to be 
played. To use this proceed as follows. 
Type: 

*BASIC 

LOAD"CREATE" 

*EXEC FILE 
where FILE is the name of the text file 
containing the data. This causes the 
CREATE program to be run, and then the 
numbers following in the data file 
would be input as the data. You can now 
watch the computer enter the data for 
you. The advantage of this method is 
that if you decide that one note is 
wrong, then only that particular note 
need be altered in the text file. 

Whenever you want а musical 
accompaniment, just type: 


*RUN TUNE 
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This will run the machine code program 
TUNE. Note that it expects to *LOAD the 
file called DATA. If you wish, you 
could have different versions of the 
TUNE program that *LOAD different 
files, and thus play different tunes. 


TAPE USERS 


the routine doesn't end up waiting for 
a note to finish playing. 


The data for the tune is held ina 
data file which is *LOADed into memory 
when the machine code program is run. 
In this file, the first byte holds the 


If you are using tape, then you will total number of notes in the tune, and 

1,1,81,4 1,1,177,4 1414137,4 1,145,4 HT. 1,1,109,4 
2,1,81,12 2,1,117,12 25,1,101,12 1281212 2:1; 117712 2,1,109,12 
1.1.129 ,4 1,1,157,4 1,1,165,4 1,129,4 1,1,157,4 1,1,129,4 
1,1;137,4 1,1,145,4 1,4; 152,4 1,137,4 1,1,145,4 1, 125,4 
1,1,145,48 1,1,129,4 1,1,125,4 1,145,4 1,1,129,4 1,1,129,4 
2,1,129,12 «2, 1,694 12 2,1,89,12 1,117;12 2,1,109,12 2,1,81,24 
1,1,157,4 Ty 1,137,4 1,1,129,4 1,157,4 1,1,137,4 1,1;145;4 
1,1,149,4 1,1,145,4 Tete 1327,4 1,149,4 1,1,145,4 1,1,157,4 
1,1,149,4 1,1,149,4 1,1,109,4 1,149,4 ДҰЕУІЛ7,4 ТТИ А 
2,1,117,12. 2,1,89,12 2,1,77,12 1,101,12 231101512 1,1,157,4 
1,1,165,4 1,1,157,4 1,1,125,4 1,165,4 1,1,157,4 1,1,145,4 
Vade d 8d 7:1,165,4 1,1,137,4 1,157,4 1,1,149,4 1,1,129,24 
lal th d 1,17. 157,4 1,1,149,4 1,157,4 1,1,145,4 2,1,109,24 
2,1;97,12 2,1,97,12 2,1,109,12 1,97,12 241,165,12 0,1,0,0 
Т,1,177,4 1,1,149,4 1,1,145,4 1,177,4 1,1,137,4 0,0,0,0 
1,7%173;4 1,1,145,4 1,1,137,4 1,173,4 1,1,129,4 

Data for 'Jesu Joy of Man's Desiring' 
need to alter the locations at which then groups of eight bytes, in the 


the data and machine code program are 
to reside. The program TUNE could easiy 
reside at 8000 onwards by altering line 
120 of the MUSIC program to P$-&900. As 
the data can no longer reside at &А00, 
we also need to alter lines 100 and 
1410 to refer to &В01 and &B00 and not 
as listed. 


PROGRAM NOTES 

The program initialises itself by 
copying the current event vector to a 
safe place for future reference, and 
then copies the entry address for 
itself into the event vector. This 
means that whenever an event occurs, 
our piece of code will be called first. 
Then, under the vertical sync event 
(which occurs regularly every fiftieth 
of a second, and so provides a frequent 
event for us) the program plays its 
notes. Once entered, {һе program 
repeatedly enters notes into the sound 
buffer until it finds that the buffer 
for sound queue number 1 is full. Once 
this has happened, the routine exits to 


format as described on page 461 of the 
User Guide (i.e. channel, volume, 
pitch, duration as two byte low-high 
numbers). By storing the notes in this 
format, there is no need for extensive 
decoding of the data before the call to 
OSWORD is made. In fact, all that is 
done is that the current note number is 
multiplied by 8, and an offset (equal 
to the base of the data - &А@1 іп the 
example given) is added. This gives us 
the values to pass directly to OSWORD. 
It would be possible to take the sound 
Statements and to compress them into 
four bytes per note, but this would 
require a considerable degree of 
decoding, and would drastically 
increase the length of the machine 
code. 


Although the program itself can cope 
with up to 255 notes, there are some 
practical limitations. This is because 
the area of memory 'safe' from most 
applications is sorely limited. Thus, 
it is not very easy to have more than 


the original event routine. The reason 64 notes with the current program 
for doing this test is to ensure that design. 
3 Cea 
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REM PROGRAM MUSIC 

REM AUTHORS DAVID FELL 

REM AND ALAN WEBSTER 

REM VERSION В1.0 

REM BEEBUG JUNE 1984 

REM PROGRAM SUBJECT TO COPYRIGHT 


data-&AQl :ВЕМ ALTER FOR DATA. 
FOR РА55-0 ТО 1 

P$-&900 :REM ALTER FOR CODE. 
[OPT PASS*2 

\ FIRST DEFINE THE ENVELOPE 

\ TO BE USED 

LDA #8 

LDX #ENV AND 255 

LDY #ENV DIV 256 

JSR БЕКЕТ 

\ THEN *LOAD IN THE DATA BLOCK 
LDX #(ENV+14) AND 255 

LDY #(ENV+14) DIV 256 

JSR &FFF7 

\ STOP ANY INTERRUPTS OCCURING 
\ WHILE WE SWITCH OVER THE EVENT 
\ VECTOR. 

SEI 

LDA &220 

STA &230 

LDA &221 

STA &231 

N OLD VECTOR COPIED 

N *** CAUTION *** 

\ DON'T RUN MORE THAN ONCE OR 
N WE'LL FOUND OURSELVES LOOPING 
\ AROUND, AND NEVER GETTING 

\ ANY WORK DONE! 

LDA #EVENT AND 255 

STA &220 

LDA #EVENT DIV 256 

STA &221 

\ NEW VECTOR INSTALLED 

LDA #14 

LDX #4 

JSR &FFF4 

\ WE'LL USE THE VERTICAL SYNC 
\ EVENT 'CAUSE IT'S THE EASIEST 
\ MAKE SYNC EVENT HAPPEN 

LDA #0 

STA 890 

GET 

\ ALLOW INTERRUPTS AGAIN, 

\ AND EXIT 

RTS 

\ THIS IS THE MAIN ENTRY POINT 
. EVENT 


CMP #4 

\ IS THE EVENT OURS? 
BEQ EVENT! \ YES 
JMP (8230) N NO! 

. EVENTI 

N WE'VE GOT THE EVENT 
PHA 
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ТХА 

РНА 

ТҮА 

РНА 

N SAVE ANY REGISTERS, MAINLY 
\ FOR THE SAKE OF SAFETY 

. EVENT3 

LDA #128 

LDX $250 

LDY #255 

JSR &FFF4 

N CHECK TO SEE IF CHANNEL ONE 
N IS FULL. THIS ALLOWS FOR US 
\ TO KEEP PILING UP THE NOTES 
N WITHOUT HAVING TO WAIT WITH 
\ A FULL BUFFER. CHANNEL ONE 
N SHOULD BE USED FOR MOST OF 
\ THE PROCESSING THOUGH. 

CPX #0 \ FULL? 

BNE EVENT2 \ NO 

.EXIT K VES 

\ GENERAL EXIT POINT 

PLA 

TAY 

PLA 

TAX 

PLA 

JMP (&230) 

\ EXIT VIA OLD EVENT HANDLER 
N ALLOWS OTHERS TO BE CHAINED IN 
.EVENT2 

INC 890 

\ UPDATE BLOCK POINTER 

LDA &90 

\ CHECK IF GOT TO END OF LIST 
CMP data-1 
BNE ІЛ 
LDA #0 
STA &90 


\ NO 
\ YES 


LDA %0 

\ ZERO OUT WORKSPACE 
STA &92 

STA &93 

PLA 

STA &92 

LDX #2 


ASL &92 
ROL &93 


BPL L2 

\ MULTIPLY BLOCK # BY 8 
CEC 

LDA #data AND 255 

ADC &92 

TAX 

LDA #data DIV 256 

ADC &93 

TAY 


Volume-3 Issue 2 


1250 N ADD IN OFFSET, AND COPY TO 1350 \ DATA TO DEFINE THE ENVELOPE 
1260 N THE X AND Y REGISTERS, READY 1360 ] 

1270 N FOR THE OSWORD CALL TO MAKE 1370 RESTORE:FOR I$-0 TO 13 

1280 N THE SOUND 1380 READ ENV?I$ 

1290 LDA 47 1390 NEXT 

1300 N OSWORD # 7 IS MAKE SOUND 1408 DATA 1,1,-1,0,1,1,-1,127,-2,-1,-1 
1310 JSR &FFFl 5,127,127,0 

1320 JMP EVENT3 1410 S(ENV+14)="LOAD DATA AGO" 


1330 \ KEEP LOOPING 'TIL BUFFER FULL. 
1340 .ENV 


1420 
1430 


МЕХТ 
*SAVE TUNE 900 9FF 


20 REM AUTHOR DAVID FELL ;NS 
30 REM VERSION В1.0 270 F$-OPENOUT"DATA" 
40 REM BEEBUG JUNE 1984 280 IF F$-0 PRINT"CAN'T OPEN FILE":END 
50 REM PROGRAM SUBJECT TO COPYRIGHT 290 BPUT#F%,N% 
69 : 300 FORI$-lTON$ 
100 MODE 7 310 FORJ$-0TO3 
110 DIM N%(255,3) 320 PROCbput (№ (I2,J2) ) 
120 PROCbanner ("Music") 330 NEXT 
130 PROCbanner("Data file Creator") 340 NEXT 
140 PROCbanner ("By David Fell") 350 CLOSE#FS 
150 PRINT'"Enter the desired four par 360 PRINT"DATA FILE CREATED" 
amters for thesound command like this:" 370 END 
'""AQB,C,D"'"Use 0,0,0,0 to exit." 380 : 
160 VDU28,0,24,39,10 1000 DEF PROCbanner (А5) 
170 N$-0 1010 LOCAL I$ 
180 REPEAT 1020 FORIS$-0TOI 
190 М№=№%+1 1030 PRINTTAB (16- (LENASDIV2) ) ; 
200 CLS 1040 VDU141,129,157,131 
210 PRINT"ENTER NOTE NUMBER ";N$ 1050 PRINTAS; 
220 INPUT""N$ (N$,0) „№ (N$,1) „№ (N$,2) 1060 VDU32,32,156 
,N$ (N$,3) 1070 NEXT 
230 IF (М%(М%,0) OR N$(N$,1) OR М%(М% 1080 ENDPROC 
,2) OR N%(N%,3))=@ AND М%-1 N$-0 1090 : 
240 UNTIL (N$(N$,0) OR N$(N$,1) OR N$ 1100 DEF PROCbput (№) 
(N$,2) OR N%(N%,3)) =Ø AND М%<>1 OR N$- 1110 BPUT4F$,N$ AND 255 
255 1120 BPUT#F%,N% DIV 256 
250 CLS 1130 ENDPROC 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


INTEGERS AND INTEGERS - Richard Sterry 


Note that conversion of real numbers to integers can be done in 


two alternative 


but direct ways that give different answers (for negative numbers only): 


А%-ІМТ(-1.3) gives А%--2 


Бу rounding down to the next nearest integer but 
A$-(-1.3) 
by truncating the 


gives A$--1 


number for the integer part. 


FIFTH WAY TO USE FUNCTION KEYS - Paul Holgate 
In addition to the four ways of obtaining input from any of the function keys 


listed in BEEBUG Vol.2, No.6, р.41 there is a fifth way 


INKEY 


function key can be detected. However, don't forget that if 


function key will enter it's soft key definition into the keyboard buffer unless 


with a 


disabled by the *FX18 command. 


(User Guide, p.275).Using 


negative argument (eg. -33 for fø), then depression of a particular 


used in this way, a 


552) 
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This month, 


It's easy to feel 
impressed when you 
look at some of the 
longer programs 
published in books 
and magazines, and 
wonder how the 
author managed to 
work out how to get 
it all together. 
In fact, even 
experienced program 
writers often don't 
have a clear idea 
of how the whole 
program will finish up when they start 
writing. An excellent approach to this 
sometimes daunting task involves the 
use of procedures right from the word 
go, and this is what I'm going to tell 
you about this month. 


Let's take a fairly simple example of a 
program that we want to write. We will 
construct something that will build up 
a picture of a house on the screen as 
we type in the names of the various 
parts of the house. We will use Mode 2, 
because that allows us to use lots of 
colours. Our basic program could look 
something like this: 


100 MODE 2 

110 PROCbegin 

120 REPEAT 

130 PROCask 

140 IF answer$-"walls" THEN PROCwalls 

150 IF answer$="roof" THEN PROCroof 

160 IF answerS="windows" THEN PROCwin 
dows 


PROCEDURES 


Peter 
procedures, and shows you how useful they are for 
that most difficult of tasks for 
designing and developing your own program. 
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BEGINNERS 
START HERE 


Lewis continues writing about 


the beginner, 


DESIGNING PROGRAMS 
USING PROCEDURES 


by Peter Lewis 


170 IF answer$-"chimney" THEN PROCchi 
mney 

180 IF answer$-"door"THEN PROCdoor 

190 IF answer$-"garden" THEN PROCgard 
en 

200 UNTIL answer$-"finish" 

210 END 


This isn't the complete program, of 
course. Every occurrence of the word 
'PROC' in the program followed by a 
name like PROCgarden, is an example of 
a procedure call, just like those we 
looked at last month. At the moment, we 
have not described (or defined) any of 
the procedures that we аге going to 
use. 


Now this may sound odd at first, but 
in fact is one of the real beauties of 
using procedures anyway. At this stage 
in designing our program, we don't 


really know what our house is going to 
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look like. We don't know how the walls 
or roof will be drawn. But that doesn't 
matter, because by using procedures, we 
can put together the outline of our 
whole program as you see it above. 


Many of the procedures will be 
obvious from their names, and just draw 
the relevant part of our house. Тһе 
procedure called PROCask is where the 
program will ask for the name of the 
next part of the house to be drawn, and 
the program assumes that the answer is 
in fact stored using the character (or 
string) variable 'answer$'. Тһе 
procedure called  PROCbegin simply 
indicates that there may well be a need 
to set up a few things at the start of 
the program. All of this is very nice 
even if still rather vague at this 
stage. Of course we can think about how 
the program looks, and change it around 
if we want to before putting in any 
more detail. Nearly any program, large 
or small, that we want to write, can be 
started in this outline fashion. 


We will now start defining some of 
our procedures, adding more detail to 
our program. It is a good idea to leave 
а gap in the line numbers between the 
main program already written and the 
procedures. This allows the main 
program to grow if necessary. We will 
start at 1000, which is just а пісе 
round number (in fact we do just this 
with most of the programs published in 
BEEBUG). The group of instructions that 
makes up each procedure is sandwiched 
between the two statements 'DEF  PROC' 
and 'ENDPROC', that mark the start and 
finish of that procedure. For example, 
PROCbegin could be defined as follows 
to puta title at the head of the 
Screen. 


1000 DEF PROCbegin 

1010 COLOUR 3 

1020 PRINTTAB(3,1)"Build a House" 
1030 ENDPROC 

1040 : 


Let's define some of the other 
procedures as well. PROCask is rather 
more complicated. The program not only 
needs to ask for the name of the next 
part of the house to be drawn, but also 


. needs to delete the previous reply. 


Here is a procedure that will do that, 


and also the procedures to draw the 
walls, roof, and door of the house. 


1100 DEF PROCask 

1110 PRINTTAB(11,30)SPC9; 

1120 INPUT TAB(1,39)"What next",answer 
1130 ENDPROC 

1140 : 

1200 DEF PROCwalls 

1210 GCOLG,1 

1220 MOVE 340,400:DRAW 340,700 

1230 PLOT 85,940,400:PLOT 85,940,700 
1240 ENDPROC 

1250 : 

1300 DEF PROCroof 

1310 GCOL0,5 

1320 MOVE320,700:MOVE 400,800 

1330 PLOT 85,960,700:PLOT 85,880,800 
1340 ENDPROC 

1350 : 

1400 DEF PROCdoor 

1410 GCOLG,6 

1420 MOVE600 , 400 : MOVE600 , 540 

1430 PLOT85,680,400:PLOT85,680,540 
1440 ENDPROC 

1450 : 


If you add these lines to the main 
program you can now test out what you 
have done so far. Run the program, and 
if you type in 'walls' or 'roof' in 
response to the question, then you 
should see the appropriate part of the 
house appear on the screen. Note that I 
have chosen to use lower case for the 
names in my version. You could change 


this if you wished. 


If you type ina word for another 
part, like 'chimney' or 'garden' then 
you will get an error message because 
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we haven't yet written these 
procedures. Anything else typed in will 
just cause the question to be asked 
again, except that typing 'finish' will 
terminate the program. 


The procedures for drawing the 
walls, roof and door use a combination 
of MOVE and PLOT instructions to plot 
coloured triangles to form the shapes. 
If you are not too sure about the use 
of these instructions, then look them 
up in the User Guide (pages 56 and 


162), or your favourite Basic book. 
Each procedure also specifies a colour 
using the GCOL instruction. 


These procedures are all relatively 
straightforward, but the next procedure 
(PROCwindows) will involve the use of 
parameters if we are to write our 
program well (we also looked at 
parameters last month). We want this 
procedure to draw five identical 
looking windows in five different 
places. The best way of doing this is 
to write one procedure that will draw a 
single window in such a way that we can 
specify where the window is to be 
drawn, and then to "gall" that 
procedure five times from within 
PROCwindows. Here is the procedure for 
drawing a single window. 


1500 DEF PROCwindow(x,y) 

1510 size-80 

1520 GCOL0,0 

1530 MOVEx,y:MOVEx,y*size 

1540 PLOT 85,x*size,y:PLOT 85,x*size,y 
*size 


1550 GCOLO,7:MOVE х,у 

1560 DRAWx,y*size:DRAWxtsize,y*size 
1570 DRAWx*size,y:DRAWx,y 

1580 MOVEx,y*size/2:DRAWx*size,y*size/2 
1590 MOVEx*size/2,y:DRAWx*size/2,y*size 
1600 ENDPROC 

1610: 


The values of x and y represent the 
position of the bottom left hand corner 
of the window on the screen where x is 
in the range from 0 to 1239 and y is in 
the range from 0 to 1023 (the normal 
graphics dimensions). The size of the 
window is set quite arbitrarily in this 
example by trial and error. Now we can 
define the procedure to draw all five 
windows as follows, simply using the 
single window procedure that we have 
already written. 


1700 DEF PROCwindows 
1710 PROCwindow (400,440) 
1720 РЕОСміпдоу (800,440) 
1730 PROCwindow (400,600) 
1740 PROCwindow (800,600) 
1750 PROCwindow (600,600) 
1760 ENDPROC 


If you add these two procedures to 
the program you can try them out for 
yourself by typing in 'windows' as the 
part of the house to be drawn. As the 
program is written, if you ask for the 
walls to be drawn after the windows, 
then the windows will disappear! Each 
window is drawn by first displaying a 
black square (made of two triangles) 
followed by drawing white lines over 
the top to form the frame. 


The use of parameters with 
procedures is a very important concept 
and worth spending a little more time 
on. In our procedure PROCwindow(x,y) 
the 'x' and the 'y' are really only 
meaningful within the procedure, and 
are said to be 'local' to the 
procedure. On the other hand, variables 
like '‘answer$' are meaningful both in 
the main program and in the procedures, 
and we say this is 'global' to the 
whole program. 


Remember, as we saw last month, that 
any of these procedures can also be 
tried out in immediate mode if you 
select the right graphics mode first 
(Mode 2). 
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Sometimes we need to use more 
variables inside a procedure other than 
just the parameters or global 
variables. It is always a good idea to 
specify them as local to the procedure 
by using the Basic keyword 'LOCAL'. For 
example, we could specify the variable 


'size' іп PROCwindow as being 'local' 
to that procedure by adding the 
following line: 
1505 LOCAL size 
There is another very important 
reason for knowing about this feature 


in BBC Basic. If we say that 'size' is 
local to this particular procedure, 
then it will not make any difference at 


I hope that you can now see how very 
useful procedures are in designing and 
writing even modest programs like the 
one we have developed here. I will not 
define the remaining procedures, but 
leave that for you to try. You might 
like to consider defining PROCgarden by 
calling some further procedures 
(PROCpath, PROCgrass, PROCtrees etc), 
and experiment further with parameters 
as well. In fact, experimenting is what 
it's all about, both when you are 
learning, and when you get more 
experienced. Few people can sit down 
and write a complete program just like 
that. A lot of trial and error is 
needed to get any program to do what 
you want. Procedures will go a long way 
in helping you design and write good 
computer programs. 


all if we happen to have used the same 
variable name ('size') anywhere else in 
the program. The micro is able to 


Next month I 
about procedures 


hope to talk again 
and show you how you 


distinguish between the different uses, can build up a collection of your own 
all of which helps to avoid mistakes or procedures to assist in program 
problems when writing programs. development. =| 


POINTS ARISING 


PRINTER RIBBON REJUVINATION - Jonathan Jones 

We are advised that the hint that we published in Vol.2, No.10, p.38, for 
recycling of old printer ribbons can be detremental to the longevity of your printer 
head, and further, has no lasting effect on the ribbon anyway. We can only therefore 
advise due caution and would be pleased to hear from anybody who has any experience 


MODE 7 CLOCK DISPLAY - Dick Orton 

Mr. Orton points out a neater solution to a section of the assembler program used 
in this program (Уо1.2, No.6). First of all, having identified what he calls а 
'cluge' (a patch to correct for an unlocated bug), the DEX instruction at line 640 


should be removed and a CLC inserted before the ADC of line 680. 
As he says, this emphasises the necessity for always using a CLC before a new ADC 
operation when using 6502 machine code. Я 


CHAINING ASTAAD - R.W.Smith. 

If entering the extended version of ASTAAD (Vol.2, No.9) from another program, 
the system variables Е%, F$, U$ should be reset to zero at line 370.  Erroneous 
values could otherwise be passed on to the ASTAAD toggle switches and lead to 
confusion. 


OUTDENTS IN WORDWISE 

Further to our previous point about outdenting of text (Vol.2, No.9); a number of 
readers have required clarification of the point that the "ТІ" command means 
temporary indent. Outdenting therefore, by using this with a negative number, first 
requires previous use of the indent command, 'IN', by a positive amount. 
 PROESSTABEVIHCUNTUSSRUMUC UE SPOT SI HARTE Sr AT EEE SNE TSE DIT TEST SLY SCRE UL ASUNT ET CNRC SEN NORIS NC ғылы MCA UIT E 
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DYNAMIC LOADING OF 
FUNCTIONS AND PROCEDURES 


by Hans Bakker 


One of the most frustrating 
limitations for disc users of the BBC 
micro is the lack of memory. The utility 
described in this article overcomes these 
problems by dynamically loading functions and 
procedures into memory when required. With 
careful use, it could be adapted for tape use 
as well. Now your programs can be as long as 
you like. 


The lack of sufficient memory on the 


Beeb is one of the most often quoted The OVERLAY utility reserves two 
criticisms of this fine machine. Disc pages of RAM (512 bytes) for a machine 
users, and users of other ROM based code routine which controls the loading 
filing systems such as Econet and and execution of the functions and 
Teletext suffer an even greater loss of procedures. It is placed in memory 
memory. In the higher resolution modes, between 8900 and &A00, which means that 
a disc user can have as little as 5.5К the system cannot be used if the RS423 
of memory left for his own program and System, cassette file system, the 
data. speech system or envelopes 5-16 are 
active at the same time. However, the 
Coping with the limitations of too user is quite free to assemble the code 
little memory is a long standing to an alternative location, if care is 
problem in computing. Many mainframe taken. 
computer users have had to contend with 
this problem, and one of the oldest USE OF THE PROGRAM 
solutions is that of overlays. With The program OVERLAY, written in 
| this technique, a large program is assembler, should be typed in and run. 
divided into a main module and a series The machine code that it generates will 
of overlay modules. The main module automatically Бе saved to disc by the 
sits permanently in memory, while each program, as a file called U.PROCFN. 
overlay module is loaded into а This is then available to *LOAD as 
separately designated area of memory as needed. To speed up entry, comments 
and when required. (i.e. the parts on lines after, and 
including the back-slash character) may 
In principle, exactly the same be omitted. As with all programs that 
technique is implemented by the OVERLAY use the Basic assembler, save the 
utility presented here. This allows program before running it! 
functions and procedures, which have 
previously been saved on disc, to be Programs that are to use this 
loaded into а special overlay area of overlay technique should be structured 
memory when called by the main program. as follows: 
Once set up, the whole system runs 
quite automatically, allowing you to 1. Set LOMEM to TOP-*length, where 
run programs which are effectively much 'length' 15 the length in bytes of 
larger than the available memory area. the longest function or procedure 
Indeed, with such a ‘virtual memory that is to be loaded (found using 
System', program size is limited only *INFO for disc, or. %С6АТ for 
by disc capacity rather than memory. cassette). 
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2. *LOAD U. PROCEN - this is the 
machine code used to control the 
loading of functions and 
procedures. 


3. CALL 8900 - this initialises the 
loader. If the code is assembled to 
a location other than 8900 this 


value should be changed 
accordingly. 
4. ОМ ERROR PROCfinish, followed by 


your own error trapping routine. 
5. Тһе normal program. 
6. PROCfinish 
7. END 


8. Finally, the following lines should 
be appended to the end of your 
program (assuming that 10000 is 
higher than any line number used in 
the main program). 

10000 DEFPROCfinish 
10001 ?(TOP-1)-&FF 
10002 ENDPROC 


Functions and procedures definitions 
are prepared as programs of their own, 
and can be SAVEd in the usual way. 
Their line numbers are not significant, 
and may clash with the calling program 
provided that the function or procedure 
doesn't reference line numbers directly 
(this is because any overlaid function 
or procedure is never seen as being 
part of the main program by Basic). 
Functions and procedures should be 
SAVEd under a filename within directory 
'O', and with the first six letters of 
their name preceeded by F or P (for 
Function or Procedure). Thus a 
procedure called 'walk' would be saved 
as O.Pwalk, and a function called 'big' 
would be saved as O.Fbig. Note that 
while the disc system does not 
differentiate between lower and upper 
case characters, Basic does, so beware! 
The format can be seen in the example 
program, DEMO. 


10 REM Program DEMO 

20 REM Authors H.Bakker 

30 REM and A.France 

40 REM Version Bl.1 

50 REM BEEBUG June 1984 

60 REM Program subject to copyright 
шайр SE TI BENE ATS TI IEIR LT eS, GUPCSEAIS CIE CN IT ASS BLES TWO UU иы SEL ORIOL RM CH REIT AE AB TELE DE ANS EER EE NT EISELE 
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76 2 
100 LOMEM=TOP+&40 
110 *LOAD U.PROCFN 
120 ON ERROR PROCfinish: REPORT: PRINT" 
at line ";ERL:END 
130 CALL 8900 
140 PROCastrix 
150 PROCprint("This will test") 
160 PROCprint("The automatic loading") 
170 PROCprint("of FNs and PROCS") 
180 PRINT FNlimit("---") 
190 PROCastrix 
200 PROCend 
210 END 
220 : 
1000 DEFPROCfinish 
1010 ?(TOP-1)-&FF 
1020 ENDPROC 


1000 DEF PROCastrix 
1001 PRINT STRINGS (39,"*") 
1002 ENDPROC 


1000 DEF PROCprint (AS) 
1010 PRINT TAB((40-LEN (A$) ) /2) AS 
1020 ENDPROC 


1000 DEF FNlimit (AS) 
1030 =AS+"Nesting of these is not poss 


ible"+A$ 


LIMITATIONS 

There are various limitations to the 
functions and procedures that the 
program calls. These are as follows: 


1. A function or procedure that is 
overlaid cannot call for another one 
to be loaded - i.e. it can only use 
routines that are either in the main 
program (e.g. if other functions апа 
procedures need to use them) or must be 
defined at the end of the function or 
procedure to be loaded, and saved with 
it. Note, however, that if the latter 
action is taken, the function or 
procedure called MUST have а unique 
name, otherwise Basic may get its 
pointers confused, with unpredictable 
results! 


2. Avoid referencing line numbers in 
the function or procedure. If you must 
use them, make sure that your function 
or procedure uses high numbers, and 
that they are higher than any in your 
main program. 
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Белл ее ыы AL APPA TD ы ала CU ESTY MRE ETI OGRE DOT A BT TR EEL II SEE LT ез 2 I TENE ERI LS 
3070 SP="L."+STRINGS (16,CHR$32) 

3080 сот1іпе=Р%+2 

3150 *SAVE PROCFNCODE C00 DFF 


3. There is a limit of six characters 
for the name of any function or 
procedure that is to be loaded. This 
only applies to the function or 
procedure that calls the loading 
routine, and is due to the limit of 
seven characters as a disc filename. If 
a non-existent function or procedure 
with an illegal name is called, the 
routine faults it, and returns to Basic 
with a "Мате too long' error, and 
ERR=47. The limit is nine characters if 
using cassettes. 


HOW IT WORKS 

When a language detects an error in 
a program, it ceases execution of it by 
indirecting through the vector, BRKV, 
at &202. By redirecting this to point 
at user supplied code, it is possible 
to modify the way that program errors 
are dealt with. Іп this case, when a 
procedure or function that has not been 
defined is discovered, the error 
generated will cause an indirection to 
the machine code OVERLAY routine, which 
will then instigate a search of the 
current filing system for the missing 
procedures or functions. This is then 
*LOADed above TOP and below LOMEM. The 
original line of Basic calling the 
overlaid routine 15 then re-presented 
to Basic for execution in immediate 
mode before re-entering Basic. 


When а new function or procedure is 
to be loaded, any existing overlaid 
routine is deleted from Basic's own 
catalogue of functions and procedures. 
This prevents Basic from jumping into 
'mid-air' expecting to find an old 
routine. 


Note that the OVERLAY utility checks 
for Basic I or Basic II, and adapts 
itself accordingly. 


FOR CASSETTE USE 
The OVERLAY utility can be used with 
cassette systems, all be it with less 


convenience, provided the procedures 
and functions are called in a known 
order. This limitation must be 
remembered, and the following 


modifications made to the program. 


150 ѕрасе%=&С00 

1270 CPX #11 

1470 LDX #(comline-2) AND &FF 
1480 LDY #(comline-2) DIV 8100 


The main Basic program will then have 
to CALL 8С00 - not 8900 as for the disc 
version. 


REM Program OVERLAY 

REM Authors H.Bakker 

REM and A.France 

REM Version Bl.6 

REM BEEBUG June 1984 

REM Program subject to copyright 


oscli=&FFF7 
brkvec-&202 
textp-&B 
top=&12 
sysvar-&400 
Space$-&900 
var loc=&3A 
varpos=&2A 
FOR раѕѕ=0ТО 3 STEP 3 
P$-space$ 
[OPT pass 
LDA brkvec NCheck to see if 
CMP #begin AND 255 
BNE notyetsaved 
LDA brkvec+] \pointers are 
CMP #begin DIV 256 


BEQ over \set up already 
.notyetsaved 

LDA brkvec NSave old vector 

STA brksav 


LDA brkvec+1 

STA brksav*l 

LDA #begin AND 255 

STA brkvec Nand make new. 

LDA #begin DIV 256 

STA brkvec*l 
.over 

LDA &8015 

CMP #&31 

BNE basic2 

LDA #&B6 

STA procvec 

LDA #&92 

STA ргосуес+1 

LDA $&10 

STA fnvec 

LDA #&B2 

STA fnvec*l 

BNE endinit 
.basic2 

LDA 44 

STA procvec 

LDA #&93 

STA ргосуес+1 

LDA $&El » 


\Basic I or II? 


\Basic I so 
\set up 
Nvectors. 


NBasic II 
Nsimilarly. 
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STA fnvec 

LDA #&B1 

STA Ёпуес+1 
.endinit 

RTS 
.begin 

LDY #0 

LDA (&FD),Y 

CMP #29 

BEQ findcat 

JMP (brksav) 
.findcat 

LDA #&FF 

LDA comline,Y 

CMP #ASC("P") 

BEQ clearproc 

CMP #ASC ("F") 

BEQ clearfn 

BNE clear 
.сІеагргос 

LDY #&F6 

BNE readcat 
.clearfn 

LDY #&F8 
.readcat 

JSR findvar 

BEQ clear 

JSR setbit 
.Clear 

LDY 40 
.Clearl 

LDA #ASC(" ") 

STA comline,Y 


LDA comline,Y 
CMP #&D 

BNE clear] 
LDY textp-1 


(textp) ,Y 
#&Е2 
ВЕО ргос 
CMP #&A4 
BEQ func 


find 


LDA #ASC ("P") 
BNE store 


LDA #ASC ("F") 
¿store 

STA comline 

INY 

STY textp-1 


LDX #1 

. Loop 
LDA (textp),Y 
CMP #48 


\Read error no. 
NNo FN/PROC? 


\Back to Basic 


\Did we have 
\FN or PROC 
\loaded before? 


\neither! 


\We have to 
\clear the old 
\PROC/FN, so 
\Basic can't 
\find it! 


\hide it! 
\This routine 
\clears the 
\command line 
\for oscli. 


\all cleared? 
\No, so back.. 
\Where error was 
\Search back for 
\FN/PROC token 
\PROC token 

\FN token 


\None found,so 
\try further 


\Store F or P 


\as first letter 
\of filename. 


\Store offset 
\in pointer 


NCheck if alpha- 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1318 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 


іпсер 
СМР %58 
ВСС ок 
%64 
іпсер 
CMP #91 
BCC ok 
CMP #96 
inctp 
CMP #122 
inctp 


CPX #8 

BNE addchar 

JMP toolong 
.addchar 

STA comline,X 

INY:INX 

BNE loop 
.inctp 

LDA #32 

STA comline,X 


LDA top 
SBC #2 
LDA top*l 
SBC #0 


JSR conv 


JSR conv 


\numeric 


ХІҒ not- assume 
\end of name 
\reached 


Хат dt ds, 
Nit's too long 
Nso fault it. 


Nadd space after 
\filename 


NCalculate TOP-2 


Nthat's where 
Nwe must load 
\the PROC/FN 


\Convert to hex 
\ASCII and put 
\ in oscli line 


LDX # (сот1 іпе-4) AND&FF 
LDY $(comline-4)DIV&!00 


JSR oscli 


LDA comline 
#ASC ("P") 
BEQ procl 
#&F8 
JSR findvar 
BEQ restore 
JSR resetbit 
.restore 


JMP (fnvec) 


.procl 
LDY #&F6 
JSR findvar 
BEQ jproc 
JSR resetbit 
.jproc 
JMP (procvec) 


Nexecute *LOAD 
NTake BRK 
\entries from 
\stack 

\Was it PROC? 


\Had we hidden 
\this before? 
\get it back! 


\restore text 
\pointer on 
\stack 


\all done, so 
\back to Basic 


\as before, but 


\this time 
\for PROC 


» 
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1750 
1760 
| 1770 
| 1780 
| 1790 
| 1800 
| 181@ 
182@ 
1830 
1840 
| 1850 
| 1860 
| 187@ 
1880 
1890 
1900 
1910 
1920 
| 1930 
| 1940 
| 1950 
1960 


i 1980 
| 1999 
| 2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
| 224@ 
| 225@ 
| 2260 
| 227@ 
228@ 
\ 2290 
2300 
2310 
2320 
2330 
2340 


1970 : 
.findvar 


.conv 


PHA 
LSR 
LSR 
LSR 
LSR 
JSR 
PLA 
AND 
JSR 
RTS 


р» р р р 


паѕсіі 


ЖЕЕ 
паѕсіі 


.nascii 


CMP 
BCC 
CLC 
ADC 
-па51 
ADC 
STA 
INX 
RTS 


STA 
LDA 
STA 


start 


LDA 
BEQ 


BCS 


#10 
nas] 


%7 


#ASC ("0") 
comline,X 


comline,X 
#ASC(" "Y 
len 
varlen 
sysvar ,Y 


varloc 
sysvar+1,Y 
var loc+] 


varloc+] 


endrout 


#0 
(varloc),Y 
varloc*2 


(varloc),Y 
varloc*3 


(varloc),Y 
check2 


varlen 
lencheck 


storepos! 


.check1 


NRoutine to 
Nconvert from 
\binary to ascii 
\hex. 

\high nibble 
\first. 


\now low nibble 


\convert nibble 
\to ascii and 

\add to command 
\line for oscli 


\routine 
\searches for 
\PROC/EN 
\requested, and 
\stores result 
\in &2A and &2B. 


\puts length of 
\name in X 

\and stores it. 
\on entry Y 
\points to 

\a linked list 
\of FNs or PROCS 


\If zero, none 
\have been used 
\yet, so finish. 


\store next fn 
\or proc in 
Nvarloc*2 and +3 


\Could this be 
\the one we are 
\looking for? 
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2930 
2940 


ІМҮ 

LDA (varloc),Y 

BEQ lencheck 
.check2 

CMP comline-l,YNCheck against 

BNE lencheck \oscli command 

CPY varlen \line. 

BNE check! 

INY 

LDA (varloc) ,Y 

BNE lencheck 
.Storepos! 

LDA varloc 

STA varpos 

LDA varloc-*l 

STA varpos*l 
.endrout 

RTS 
.lencheck 

LDA varloc*3 

BEQ endrout 

LDY #&00 
(varloc+2) ,Y 
varloc 


\It is the one 
\we are looking 
\for, so store 
\it away. 


\look for next 
\FN/PROC 


(varloc+2) ,Y 
varloc-*l 


(varloc*2),Y 
check4 


varlen 
start 


storepos2 
«check 3 
INY 
LDA (varloc+2) ,Y 
BEQ start 
.check4 
comline-1l,YNcheck against 
start Noscli line 
varlen 
check3 


(varloc+2) ,Y 
BNE start 
.Storepos2 
LDA varloc*2 
STA varpos 
LDA varloc*3 
STA уагроѕ+1 
RTS 
.Setbit 
LDY #2 Mhide FN/PROC 
101. (varpos),Y \by setting top 
ORA #&80 \bit of the 
STA (varpos),Y \first character 
RTS \in the name. 


.resetbit 
Continued on page 25 
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SIX NEW GAMES REVIEWED 
by David Fell and Alan Webster 


Crazy Painter, together with Crazy 
Tracer, are two of the 'painter' games 
for the Beeb that are currently on the 
market. The basic idea is to fill in 
rectangular areas on the screen by 
totally navigating their boundaries, 
whilst being chased by a variety of 
nasty marauders. 


Name : Crazy Painter 

Supplier : Superior Software 

Price 5 ET.95 

Reviewer : David A. Fell 

Rating : Xx 

Name : Crazy Tracer 

Supplier : Acornsoft 

Price : Tape £9.95 Disc £11.50 
Reviewer : David A. Fell 

Rating fo 


CRAZY PAINTER by Superior Software 
Crazy Painter is a superb copy of 
the arcade game, апа includes three 
basic screen layouts. In the first type 
of screen, you are a small green monkey 
(!) being chased by some nasty pink 


Indians. Your aim is to eat up the 
small blue dots that surround the 
rectangular grid work forming the 


screen. The Indians display а wavering 
intelligence; occasionally pursuing you 


and sometimes wandering around like 
aimless dodos. 
By completely going round a corner 


square, the tune, which is perpetually 
played unless the ‘quiet' option has 
been selected, will speed up. This 
indicates that you can temporarily stun 
the Indians - but beware, for this only 
lasts a short length of time 


The second sheet pits your wits 
against а network of lines down which 
you have to guide a monkey to reach a 
banana for a bonus. This is much more 
difficult than it sounds. In the final 
sheet you guide a roller paint brush 
around another grid network, painting 
its borders in yellow. Unfortunately, 
you have to contend with a group of 
ferocious light blue bears and a paint 
supply that always has to be joined to 
a previously painted rectangle. Once 
each of three different screens has 


been completed, you start at the first 
one, but with more Indians/bears to 


compete with. 
Overall, this game is a superb 
example of a non 'zap-zap' game, with 


attractive graphics, a 
and some realistic keys (if only all 
games distributors would stick toa 
common set of keys - but then, that is 
asking а lot!). If it were not for the 
fact that there is a small bug which 
very occasionally prevents you from 
completing a screen, I would be sorely 
tempted to give this game five stars. 


pleasant tune 


ұра MICH 388" 


CRAZY TRACER by Acornsoft 

Acornsoft's Crazy Tracer is similar 
in its basic concept to Crazy Painter, 
but lacks the same enjoyment when the 
game is being played. There was по 
music playing while the game was in 
progress, the keyboard didn't feel as 
responsive as it could have been, and 
the game was infuriatingly slow. The 
noises that were made struck me as 
rather unimaginative and dull. The 
creatures chasing you are fairly 
Standard 'nasties', and the  'paint' 
mode is Бу no means as intelligent as 
the Superior Software routine. 


Overall, this is not as good as 
earlier games from Acornsoft, who will 
need to produce future games to a much 
higher standard particularly if they 
are to meet the challenge of Atarisoft, 
who are launching their own well known 
computer games for the BBC micro. 
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Name : JCB Digger 

Supplier : Acornsoft 

Price : Таре £9.95' | Disc £11.59 
Reviewer : David A. Fell 


Rating INA 


This game 
announced, has at last been released, 
though the results do not seem to 
justify the wait. The basic scenario in 
this game is to drive a JCB  3CX 
Excavator Loader around two islands, 


from Acornsoft, long 


This month sees the emergence of two 
more games for the BBC micro based on 
the very poular arcade game known as 
'Pengo'. These are Penguin by H.Soft 
and Percy Penguin by Superior Software. 


Title : Penguin 

Supplier : H SOFT (Watford Electronics) 
Price 2 E: IS F VAT 

Rating I RT 

Reviewer : Alan Webster 


Title : Percy Penguin 
Supplier : Superior Software 
Price : £7.95 inc. VAT 
Rating яж 

Reviewer : Alan Webster 


The idea of Pengo is to kill the 
creatures known as Snobees, by crushing 
them with cubes of ice, before they 
kill you. At the same time, your main 
aim, apart from staying alive, is to 
push three special blocks together for 
big bonus points. The longer you take 
to get the three blocks together, the 
fewer bonus points you gain. 


PENGUIN by H Soft 


This version of Pengo has 
transferred quite successfully to the 
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Scooping up the only landscape in which 
you can hide, and at the same time 
avoiding the 'Meanies'. These cannot be 
killed, but can be put to sleep by 
dumping them into the sea (fresh water 
won't do) or by burying them. The 
Screen, unfortunately, scrolls in a 
very sluggish and disappointing way. 
Perhaps one could have accepted this а 
couple of years ago, when the Beeb was 
still a new entity, but now that the 
Secrets of screen scrolling have been 
So successfully mastered by other 
software houses, one would expect 
Acornsoft to have produced some better 
scrolling. 


Acornsoft produced this game in 
conjunction with J. C. Bamford 
Excavators Ltd., and I assume that this 
is one of the main reasons for 
marketing this game. However, one 
wonders about Acornsoft's sincerity іп 
the comment on the rear of the 
packaging that "..this game is a must 
for the games connoisseur"! 


BBC micro. Тһе graphics, sound апа 
Speed are very good, although our copy 
was very fussy as to which ROMs were 
installed in the micro at the same 
time. 


The music with this game is 
particularly noteworthy, and the key 
response is the best I have seen for 
this type of game. Unfortunately the 
game is  spoilt by the occasional 
corruption of the screen display that 
takes place, though this seemed to be 
dependent on which ROMs were installed 
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in the micro at the same time. Never 
the less, this is an annoying feature 
when it occurs. 


PERCY PENGUIN by Superior Software 

The second of the 'Pengo' games 
reviewed this month comes from Superior 
Software and is one of six new releases 
from this company. 


Once again, Percy Penguin is trapped 
in the snow maze, trying to push the 
special bonus blocks together, апа 
Still trying to avoid the Snobees. 


This version is not as graphically 
Penguin from H SOFT, but 


stunning as 


runs much better, with no problems over 
conflicts with any ROMs. There is also 
a time bonus on this version for 
completing a sheet quickly. 


CONCLUSIONS 

If it were not for the occasional 
corruption of the screen display then 
Penguin from H Soft would be the choice 
here. We were unable to determine the 
exact cause of the problem, other than 
that it seemed related to the selection 
of ROMs in our office machines. In the 
circumstances, Percy Penguin from 
Superior Software is a reliable if 
slightly duller choice. 


Title : Crawler 

Supplier : Watford Electronics 
Price 1 £6..95..+ VAT 

Rating : **** 

Reviewer : Alan Webster 


A long time ago, in the arcades, a 
game was released which caught the eye 
of arcade enthusiasts. Тһе game was 
Centipede, and since then all of the 
home micros have had their own versions 
of the game, including the Beeb, with 
Bug Blaster. This version from Watford 
Electronics 15 much better, much 
faster, and much harder. 


The game takes place in a mushroom 
patch full of creepie crawlies, such as 
centipedes, spiders, fleas and 


Continued from page 22 


2950 ІҮ #2 Nrestore FN/PROC 
2960 LDA (varpos),Y \by clearing 
2970 АМО #&7F Nthat bit. 

2980 STA (varpos),Y 
2990 . RTS 

3000 .toolong 

3010 ВЕК 

3020 ] 

3030 ?P$-47 

3040 $(P%+1)="Name too long" 
3050 PS=PS+LENS (P$+1) +2 


\error 


scorpions. The object is to keep these 
undesirables at bay, by shooting them 
down. The scorpion is particularly 
troublesome, poisoning the mushrooms, 
and consequently making the centipede, 
your principal adversary in this game, 
extremely difficult to deal with. 


Overall, this is a very good game, 
and the graphics апа speed are of a 
high standard. mJ 


Note: Both games from Watford 
Electronics аге available to  BEEBUG 
members at 50p off the basic price 
above - order direct from 


quoted 
Watford Electronics quoting your BEEBUG 
membership number. 


3060 ?(Р%-1)-й0 

3070 SP%="L.0."+STRINGS (13,CHR$232) 
3080 comline-P$44 

3090 P$-P$4LEN(SP$)-41 

3100 procvec-P$:fnvec-P$42:P$-P$-44 
3110 brksav=P%: P$=P$+2 

3120 ?brksav=?brkvec:brksav?1=brkvec?1 
3138 varlen=P% 

3140 NEXT 

3150 *SAVE U.PROCFN 900 AFF 

3160 END el 


RELA A TESTA SLT I IES AT ELITE LED LE PLE I DIG WEISSEN GT ED BNET ETL DESERET AOL TEST: 
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TORCHNET PROBLEM 


If you've been using Basic (or another language) and your machine supports the 
Torch 0.5. MCP 0.41 with networking, then you may find that your station number has 
become incremented to a large number, greater than 255. You may also have found that 
hard breaks won't clear it back again. Poking zero to &1Е8С before re-entering МСР, 


should reset the number to it's original status. 5521 
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STRING HANDLING 


by SURAC 


Workshop 


String handling is a very 


important and interesting part of 


programming. This month's workshop discusses four useful routines 
for you to experiment with, and provides a number of ideas for you 


to try out for yourself. 


Most modern computers probably spend 
more of their time processing text and 
characters then they do handling 
numbers and mathematics. Тһе use of 
strings and the ability to manipulate 
and process strings is an important 
part of many programs. In this workshop 
we will look at some basic and useful 
routines to show how to extract a 
single character from a string, how to 
space out text for titles, as well as 
converting mixed upper and lower case 
all into upper case, and the removal of 
leading and trailing spaces from a 
string. 


The first task is a very simple one, 
and illustrates a useful technique that 
we will use in most of our other 
examples. Suppose we have a string, А5, 
and wish to extract each consecutive 
character beginning at the lefthand 
end, and proceeding to the righthand 
end. How do уой accomplish this? The 
solution is in the use of the MIDS 
function, which allows us to extract a 
given character (or group of 
characters) from another string. There 
is a description of MIDS on page 298 of 
the User Guide, and you might like to 
try and work out how to use this 
function to extract single characters 
from a given string before going any 
further. 


The program below is my routine to 
extract each character in turn. See if 
you can modify it to print the 
characters in reverse order; i.e. G as 
the first one, N as the second, etc... 


10 AS-"OUR EXAMPLE STRING" 
20 FOR I$-1 TO LEN(AS) 
30 BS=MIDS(AS,1%,1) 


40 PRINT В5 
50 NEXT 


In general, to extract character 
number N$ from string AS, use 
MIDS(AS,N%,1). This will return a 
single character, and we need to either 
'put' this into another string 
variable, print it immediately, or to 
use it as а 'parameter' for another 
function. А5, М% and 1 are all 
parameters to the function МІр5 in the 
example above. In the examples that 
follow, we will use this technique of 
extracting characters to perform some 
simple operations on strings. 


SPACING OUT TEXT 

When writing programs, it is nice to 
display a banner at the start giving 
the program name. To distinguish the 
name from the rest of any text that may 
be present on the screen, it is 
convenient to have some method of 
'highlighting' this banner. One way to 
do this is to spread the string out to 
twice its original length by padding it 
out with a space after every character. 
Below is the function and а 
demonstration program that illustrates 
the string padding function. Type it in 
and run it: 


10 REPEAT 

20 INPUT AS 

30 PRINT FNpad (AS) 
40 UNTIL А$="" 

50 END 


1000 DEF FNpad (AS) 

1010 LOCAL 1%,В$ 

1020 IF А$="" THEN GOTO 1070 

1030 IF LEN(AS)>127 PRINT"STRING ТОО 
LONG TO PAD!":STOP » 


BEEBUG 


JUNE 1984 


Volume-3 Issue 2 ё 


кә 
al 


1040 FOR I%=1 TO LEN(AS) 
1050 BS=BS+MIDS(AS,I%,1)+" " 


1060 NEXT 
1070 -В5 
The string is passed as AS to the 


function FNpad, which checks for a null 
(empty) string. The function also 
checks that the length of the padded 
String will not exceed the maximum 
string length of 255 characters 
(original string length less than 128 
characters). Provided the string 
submitted passes these checks, the 
additional spaces are inserted. The 
result is displayed on the screen, and 
the program will continue looping until 
you enter a blank string, or escape. 


What the program does is to step 
through the supplied string опе 
character at a time, and append this 
character to the current output string 
(BS) followed by a space. This results 
in B$ containing а copy of А5, but with 
a space after each of the original 
characters from А5. 


CONVERSION TO UPPER CASE 

Our next example is based upon the 
use of MIDS, as was the last one, but 
this one also uses a couple of other 
Basic functions. Тһе purpose of the 
function is to take a string of text, 
and to force each character to upper 
case (this sort of conversion is very 
useful for checking user input which 
could be in a mixture of upper and 
lower case, for example in adventure 
games). It does this by going through 
the string supplied one character at a 
time, and performing a logical AND with 
the ASCII value of that character. If a 
logical AND with a character's ASCII 
code and &DF (the te! means 
hexadecimal) is performed, then the 
value returned is that for the upper 
case equivalent, whether it was an 
upper case or lower case character that 
was used originally. 


The program is used in much the same 
way as the last one; i.e. a string is 
typed in, and if not null the upper 
case equivalent is printed. If it is 
null, the program exits. Trying to 
obtain the upper case equivalent of 


characters other than alphabetical 
characters сап produce some odd 
effects. As an exercise, try and amend 


the program so that it only attempts to 
alter a character if it is a letter, 
and not anything else. 


10 REPEAT 

20 INPUT AS 

30 PRINT FNucs (AS) 
40 UNTIL А$="" 

50 END 


1000 DEF FNucs (AS) 

1010 LOCAL 1%,В5 

1020 IF А5-"" THEN GOTO 1060 

1030 FORI%=1 TO LEN(AS) 

1040 BS=BS+CHRS (&DF AND ASC (MIDS (AS, I$ 


1050 NEXT 
1060 -В5 


STRIPPING SPACES 


Our final example program this month 
is a slightly more complex one, but it 
is exceedingly useful. What it does is 
to take a given string, and to 'lop 
off' any leading or trailing spaces. 
Say you had a string such as the one 
below (with the ' marks just showing 
where the string starts and stops): 


' АМ EXAMPLE STRING т 


What the function does is to take off 
the spaces to leave: 


'AN EXAMPLE STRING' 


10 REPEAT 

20 INPUT LINE А5 

30 PRINT "#";AS;"#" 
40 AS=FNstrip (A$) 
50 РВІМТ nan ;AS; MT 
60 UNTIL А$="" 

70 END 


1000 DEF FNstrip(AS) 

1010 IF AS="" THEN СОТО 1040 

1020 IF ВІСНТ$(А$,1) =" " REPEAT:AS=LEF 
TS(AS,LENAS-1) :UNTIL ВІСНТЅ (А$,1) <>" " 
1030 IF ГЕЕТЅ(А$,1) =" " REPEAT:AS=MIDS 
(A$,2) :UNTIL LEFTS(AS,1)<>"_" 

1040 -А5 


You may be able to think of a way of 
using the MIDS function to make this 
more efficient. If you come up with any 
routines that you think other readers 
would like to see, then send them into 
SURAC at: 


The Programmer's Workshop 
BEEBUG 
P.O. Box 50 St. Albans Herts. E 
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AN INTRODUCTION TO SPREADSHEETS 


by David Otley 


Spreadsheets form one of the major and more serious applications of 
microcomputers. Ultracalc from BBC Soft is already available, ага 
Viewsheet from Acornsoft is expected shortly. As a prelude to a 
review of these two spreadsheet packages, David Otley introduces the 
whole subject of spreadsheet analysis. 


INTRODUCTION 

The advent of two new spreadsheet 
programs indicates the increasing 
attention being paid to serious 
business oriented software for the BBC 
micro. Тһе original spreadsheet 
program, VISICALC, is reputed to have 
been a major factor in the success of 
the Apple computer. For the first time, 
users were able to make the computer do 
what they wanted without the barrier of 
learning a complex programming 
language. The BBC's impact on the 
serious market has already begun with 
word processing. The availability of 
good spreadsheet packages must continue 
to enhance its attractiveness to 
serious users. 


WHAT IS A SPREADSHEET? 

A spreadsheet is a large sheet of 
paper ruled into rows and columns on 
which complicated calculations can be 
logically and neatly set out. Only the 
figures to be  'plugged' into the 
calculations can be seen however, and 
their corresponding answers. The 
computer-based version displays a small 
part of this tabular sheet on a monitor 
screen (usually some twenty rows by up 
to twelve columns) but permits the 
Screen to act as a 'window' that can be 
moved to any part of the sheet. Numbers 
can be entered into the individual 
boxes (or cells) on the sheet and 
calculations performed such as the 
addition of column totals, the 
extension of quantities and prices into 
invoice totals, ог the computation of 
specified statistics. 


The delight of spreadsheet 
applications comes to the fore when you 
need to change the original values 
entered. If а new number is entered 
into a cell, every other number on the 
sheet is automatically recalculated іп 
a matter of seconds. The sheer joy of 


seeing hundreds of changes calculated 
before your eyes, when manual methods 
previously took hours of tedious 
effort, has to be experienced to be 
appreciated. 


The application of spreadsheets to 
date, has been primarily in accounting 
and financial planning and it's with 
mainframe-based financial | planning 
packages and VISICALC on a micro that I 
have gained my experience. This is not 
to suppose that spreadsheets аге 
limited to financial calculations 
however; their flexibility means that 
they can be used for any type of 
numerical manipulations such as those 
involved in scientific and statistical 
calculations; and their area of 
application depends, to a large extent, 
on the ingenuity of the user. What сап 
be computed оп a spreadsheet is about 
as limitless as what can be organised 
on a data-base filing system. 


This article, the first of two, will 
describe this type of application in 
more detail, particularly for the 
reader with no previous experience of 
spreadsheet programs. Іп the second 
part, the two packages from BBC Soft 
and Acornsoft will be examined in some 
depth. 


FEATURES OF SPREADSHEETS 


A simple application of spreadsheet 
use, based on one particular package, 
is given in the pro-forma invoice 
printed out with this article. This 
shows how the columns are identified by 
letters and the rows by numbers 
(although these border headings could 
be removed in a final version for 
printing). The names of various items 
stocked are listed in the first column. 
The user would fill in the required 
quantities in the second column; prices 
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are given in the third column and may 
be changed if necessary. Тһе 
spreadsheet has then been programmed to 
calculate ап appropriate quantity 
discount for each item (in this case on 
the same scale for each item, although 
individual discounts can easily be 
incorporated). It then extends the 
invoice to calculate net totals, VAT 
and the total payable. The important 
point to appreciate is that the 
necessary programming for a calculation 
of this kind can be entered in a few 
minutes, even by an inexperienced user, 
and then used to calculate the new 
results from each quantity in a few 
seconds. 
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These formulae closely resemble Basic 
expressions and can include а 
reasonable range of in-built functions 
such as LOG, SIN and INT. They would be 
entered from the keyboard and stored 
with the spreadsheet but are not 
normally visible unless required for 
editing or copying. 


However, having made these entries 
for the first row, 'Widgets', it is not 
necessary to re-enter equivalent 
formulae for the six subsequent rows. A 
replication device will do this for you 
merely by specifying the source range 


а 


пикета кА SKS cee Нав вакво (С еаеаяеа адаса е онен оО 


sel Item Quantity Price Discount Net VAT Total inc 
592 УАТ 
s3 

1.4 

..5 Widgets 50 5.00 15 212.50 31.87 244.37 
..6 Toggles 13 1.90 5 23.47 3251 26.98 
..7 Nurdles 40 228 10 45.00 6.75 51.75 


Numbers, formulae and labels are 
entered directly with the program 
automatically distinguishing between 
them. Labels аге left-justified апа 
numbers right-justified by default, so 
the contents of columns A, B and C can 
be entered simply by placing the cursor 
in the correct box (using the cursor 
keys), typing the entry and pressing 
Return. The next cell is then accessed 
also using cursor keys, although 
advancement to the next position can be 
Set to be automatic. 


Omitting the derivation of column D 
for a moment, values in columns E,F and 
G are calculated by entering formulae 
in a way familiar to апу Basic user, 
with the content of a cell being 
identified by its column letter and row 
number (e.g. E5): 

E5=B5*C5* (1-05/100) 

Е5=Е5*0.15 

С5=Е5+Е5 


(i.e. E5 to G5, also stated as E5:G5) 
and the required destination (i.e. rows 
6 to 11). For each variable used in the 


formula | replicated, the user is 
prompted to specify whether the 
variable should be'transferred exactly 
as it stands (i.e. Е5 remains as Е5 
even in row 6) or whether it should be 
treated as a relative reference (i.e. 
E5 in row 5 becomes E6 in row 6). In 
this example, all replications should 
be relative. Although difficult to 
describe in words, the use of 
replication rapidly becomes second 
nature and is a most powerful method of 
writing the logic of calculations into 
a spreadsheet. 


Next, totals are required for 
columns E, F and С. These can be 
specified by referring only to the 
first and last values in each column 
and using an automatic total feature. 
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Returning to column D, the discount 
offered depends | upon the order 
quantity. This can be calculated using 
an IF statement having the format : 


IF(logical expression,formula,formula) 


The first formula (or value) is 
evaluated if the logical expression is 
true, the second if it is false. These 
Statements can be nested, so a typical 
entry in column D reads : 


ІЕ(В5<10,0,ІЕ(В5<25,5,ІЕ(В5<50,10,ІЕ(В5 
<100,15,20)))) 


If such logical expressions become 
too complicated, lookup tables can be 
constructed. A lookup table is a list 
of values оЁ опе variable with 
corresponding values of a second 
variable. Thus а тоге complex set of 
discount percentages could be set up in 
a table located elsewhere on the sheet, 
and the correct value read off. 


Order quantity 


9 0 


10 - 24 5 
25 - 49 10 
50 - 99 15 
100 and over 20 


As the table might be set up on the 
spreadsheet quite separately from the 
main one, it wouldn't be displayed 
unless specifically requested. Such 
tables are particularly valuable where 
a relationship follows по easily 
represented mathematical formula (e.g. 
discounts offered . to different 
customers) or formulae which are 
difficult to calculate each time they 
are required (e.g. a statistical table 
requiring numerical integration). 


Finally, column widths and cell 
formats can be set so that numbers are 
displayed with necessary decimal places 
neatly aligned. If additional rows or 
columns are required, these can be 


inserted at any point; a most necessary 


facility іп practical spreadsheet 
construction! 
Once the results have been 


calculated, required portions of the 
Sheet can then be directed to a printer 
(the coded row and column headings 
being removable) and the overall 
spreadsheet saved to disc or cassette 
for future use or amendment. Protection 
can be set so that other users are 
allowed only to enter new values for 
certain cells, to ensure that the model 
structure is not inadvertantly 
corrupted. 


This example gives only опе simple 
application of the general spreadsheet 
capability. Obvious financial app- 
lications include profit budgeting 
(with each column representing a week 
or a month), cash flow planning and 
investment analysis. There are further 
facilities that one might expect to 
find on larger spreadsheet  'systems' 
on the more capable micro's: the 
ability to link spreadsheets that run 
several sheets concurrently and carry 
results between them all; graphics 
facilities to display the results as 
graphs or pie-charts; spreadsheets that 
interface directly with certain 
database packages for their 
information, or word processors, so 
that tables can be neatly formatted for 
document printing. Non-financial 
applications include things like club 
membership records, limited resource 
scheduling, holiday planning charts for 
employees and a general home data base. 


NEXT MONTH 


Next month we shall be looking at 
two programs recently made available 
for the Beeb called Viewsheet and 
Ultracalc. Both programs possess most 
of the features described so far and 
operate іп a very similar way. However 
there are still some significant 
differences in their capabilities and 
these we shall attempt to highlight. = 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


BREAK FROM WITHIN BASIC 


Try CALL !-4. This has the same effect as pressing the Break key (only from 
within а program), but note that cassette filing system selection will take place 
if you enter this in immediate mode and hold the Return key down for too long. зға) 
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MACHINE CODE GRAPHICS (Part 5) 


by Peter Clease 


In this, 


multi-coloured character 
great ease. 


So far I have only dealt with 
horizontal movement, since this is very 
easy to do - you add or subtract eight 
from the screen pointer to move two 
pixels right or left. If you look at 
the byte map for Mode 2 (given in the 
first article in this series, in BEEBUG 
Vol.2 No.8 - see also Vol.2 No.9) you 
will see that vertical movement is much 
more difficult since the boundary 
between character blocks vertically has 
to be detected and crossed, and this 
involves an additional increase in the 
pointers. 


The machine code routines below, 
however, will do it all for you. Append 
them at the end of your program as an 
assembly subroutine and call 'plot' to 
plot characters. The program plots a 
Mode 2 8х8 character anywhere on the 
Screen (the structure of the characters 
is the same as those defined earlier in 
this series). When calling the routine, 
you need to supply information about 
where the data is in memory, and where 
to put the character on the screen. 
This is done by making 872 and &73 
point to the character data (with 6872 
being the low byte, and &73 being the 
high byte) and &70 and &71 point to the 
Screen memory address of the top left 
pixel in the desired position of the 
shape. 


10000 .plot LDX$0 

10010 .РІЛ LDY$0O { 
10020 .PL2 LDA(&72),Y:EOR(&70) , Y: STA(&7 
0),Ү 

10030 CPY#24:BEQ PL3:CLC:TYA:ADC#8:TAY: 
JMP PL2 

10040 .PL3 CPX#7:BNE PL4:RTS 

18050 .PL4 INX 

10060 LDA&70:AND#7:CMP#7:BEQ biginc 
10070 CLC:LDA&70:ADC#1 :STA&79:LDA&71:AD 
C$0:STA&71 

10080 .PL5 CLC:LDA&72:ADC#1:STA&72:LDA& 
73:ADC#@:STA&73:JMP РІЛ 

10090 .biginc CLC:LDA&70:ADC4&79:STA& 70 
:LDA&71:ADCS2:STA&71:JMP PLS 
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NOTES ON SUBROUTINE 

The first two lines of this routine 
are used to set up two counters. One of 
these 15 for the number of pixels that 
have been placed across the current 
character row (the Y register), and the 
other is a count of how many lines have 
been drawn (the X register). By 
altering the tests on these two 
registers, and a few other 


instructions, you could alter the size 
of the character plotted, but you would 
need to modify the character data 
supplied as well. The third line adds 


the offset to find the byte of data for 
each group of two pixels to be plotted 
for each character line, and checks to 
see if the character line has been 
fully plotted. The fourth line checks 
to see if the whole character has been 
printed, exiting if it has, running 
through to the next line апа 
incrementing the X register for the 
next line if the routine has not 
finished. The remaining lines decide 
upon the size of the offset increment 
needed, and add this onto the screen 
pointers. 


The data for the character should be 
arranged in column order, i.e. the 
first byte of data is the data for the 
top left pixel, the second byte is for 
the second byte of the first column ... 
the ninth byte is for the top pixel of 
the second column and so on. This is 
the same way of arranging the data that 
we have been using throughout these 
articles. How to enter the data and use 
the routine generally is shown in the 
demonstration program (Program 11). 
This uses the animation techniques from 
last month апа the 'plot' subroutine 
already described this month to show a 
walking 'creature' moving across a 
multi-coloured background. 


4— "Тһе Plot Subroutine' 
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Basically, when each character is to 
be plotted, we want to repeat a basic 
Sequence for each line of the 
character, viz: plot this line, decide 
upon the size of the increment 
necessary, add this increment, and then 
repeat. The more complex part of this 
is deciding when we have crossed the 
boundary between one standard character 
position and the one below. If we have 
crossed this division, then it is 
necessary to add on a bigger increment. 
Normally we add just 1 to move down to 
the next pixel, but we need to add в279 
if we have crossed this boundary. 


This program will only work in Mode 
2 as it stands, since it is assumed 
that each character needs a data block 
that is four by eight bytes in size. To 
convert it to Mode 0 or Mode 4, change 
the CPY value at the start of line 
10030 to 8; this alters the program so 
that each line will then only require 1 
byte per horizontal line to specify all 
8 pixels. To convert it to Mode ! or 
Mode 5, change the CPY value to 16 (two 
bytes per horizontal line). These 
differences are summarised in the table 
below. In all modes, the data reads 


down the columns of bytes. 


Bytes per Line 


0,4 8 
1/9 4 2 16 
21-6 4 24 


Table showing bytes per character 1іпе 
for different modes. 


This program uses  Exclusive-OR 
plotting, as you may have noticed in 
examining the machine code. This is the 


same kind of plotting as is invoked by 
the GCOL 3,x statement (where x is a 
number standing for the colour to be 
plotted in). The property of this 
method of plotting is that if you plot 
the same character at the same location 
twice, then the character will 
disappear, leaving the background 
unchanged. The outcome of this is that 
you can move a character very easily 
across any background, without any 
problems, provided that all actions to 
the screen use Exclusive-OR plotting. 
First plot the character, wait a while, 
unplot it (by plotting the same 
character at the same place a second 
time), increment the pointers and then 
start at the beginning of this sequence 
again. This gives the effect of 
movement. The effect is similar to the 
way cartoons аге animated. Тһе next 
program, the final demonstration 
program, shows nicely how the routine 
can be used to animate characters over 
a pre-defined background, without 
deleting any of the background through 
the use of Exclusive-OR plotting. 


10 REM PROGRAM 11 

20 REM AUTHOR PETER CLEASE 

30 REM VERSION В1.0 

40 REM BEEBUG JUNE 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


100 FORPASS-0 TO2 STEP2 

110 P$-82300 

120 [OPTPASS 

130 .start LDA$0:STA&2800:LDA4&30:STA 


140 .1оор JSRfig!:JSRdelay:JSRfigl:JS 
Rinc:JSRfig2:JSRdelay:JSRfig2:JSRinc:LD 
AS&80:BIT &FF:BMI exit:CMP&2801:BPLloop 
:.exit RTS 

150 .delay LDX480:.DEl LDY#255:.DE2 D 
EY:CPY40:BNE DE2:DEX:CPX40:BNE DE1:RTS 

160 .figl JSRHEAD:JSRCOORDS:LDA4&20: S 
TA&72:LDA4&29:STA&73:JSRplot:RTS 

170 .fig2 JSRHEAD:JSRCOORDS:LDA4&40:S 
TA&72:LDA4&29:STA&73: JSRplot:RTS 

180 .COORDS CLC:LDA&2800:ADC4&80:STA& 
70: LDA&2801 :ADC#2:STA&71:RTS 

190 .HEAD LDA&2800:STA&70:LDA&2801:ST 
A&71:LDA40: STA&72: LDA#&29: STA&73: JSRplo 
t:RTS 

200 .inc CLC:LDA&2800:AND$7:CMPf$7:BEO 
INI 

210 CLC:LDA&2800:ADC49 : STA&2800 : LDA&2 
801:ADC40:STA&2801:RTS 

220 .ІМІ LDA&2800:ADC4&81:5STA&2800:LD 
A&2801:ADC42: STA&2801:RTS 

230 .plot LDA#0:STA&74 » 
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240 .РІЛ LDY#Ø 

250 .PL2 LDA(&72) , Y: EOR (£70) ,Y: STA (&7 
0),Ү 

260 CPY#24:BEQ PL3:CLC:TYA:ADC#8:TAY: 
JMP PL2 

270 .PL3 LDA#7:CMP&74:BNE PL4:RTS 

280 .PL4 INC&74 

290 LDA&70:AND#7:CMP#7:BEQ biginc 

300 CLC:LDA&78:ADC#1:STA&70:LDA&71:AD 
С#@:5ТА&71 

310 .PL5 CLC:LDA&72:ADC#1 : STA&72: LDA& 
73:ADC#0:STA&73:JMP PLI 

320 .biginc CLC:LDA&70:ADCR&79:STA&70 
:LDA&71:ADC#2:STA&71:JMP PL5 

330 ] 

340 NEXT 

359. * 

360 MODE2 

370 VDU23,1,0;0;0;0; 

380 FORI$-0TO95 

390 READ I$?&2900 

400 NEXT 

410 FORI$-0TO!279STEP80 

420 FORJ$-0TOlQO23STEP64 

430 PROCblock (1%,J%, (RND(2) -1) *RND(7) ) 

440 NEXT, 

450 COLOURI5:PRINTTAB(3,3)"E.T. phone 
home" : COLOUR7 

460 : 

470 REPEAT 

480 CALL start 

490 UNTIL 0 

500 : 

510 DATA4,12,12,12,12,12,4,0,12,12,12 
712712612712: 121125412 12763,4297 4912,12 
705,8512,12,12,12,12758 

520 REM head 

530 : 

540 DATA0,0,0,4,12,4,0,0,12, 
,0,0,12,4,4,4,4,4,4,4,0,0,0,0, 

550 REM taill 

560 : 

570 DATAG,@, 
8,12,12,4,0,0, 

580 REM tail 

590 : 

600 DEF PROCblock (А%,В%,С%) 

610 ССОҺ0,С%%128 

620 Үр024,А%;В%;4%+79;В%+63; 

630 CLG 

640 ENDPROC 


, 


8,8,8 
0,0,0, 
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TECHNICAL NOTES ON PROGRAM 11 


Line 140 is the main program loop, 
and also contains code to check for 
Escape being pressed. 


Line 150 is the delay subroutine, 
and merely loops round doing nothing a 
lot of times! 


Lines 160 and 170 are the two 
subroutines that draw the two alternate 
lower half characters. This provides an 
animated character, as was shown in 
part 4 of this series. 

Line 180 increments the 
pointer. 


Screen 


Line 190 draws the head of the 
character, which is constant for either 
of the two lower halves. 


Lines 200 to 220 are concerned with 
checking and updating the screen 
pointer. 


Lines 230 to 320 are the plot 
routine, as described earlier in this 
article. 


Lines 360 to 450 set up the screen 
with some different coloured 
backgrounds for the character to walk 
over. 


Lines 470 to 490 repeatedly call the 
character routine to walk the shape 
across the screen. 


Lines 514 to 580 contain the 


character data. 


Finally, lines 600 to 640 fill ina 
small block at a given address with a 
given colour. 


One point to note, though, is that 
although no net alterations result to 
the background, when two colours 
overlap, a different colour may be 
displayed. 


I have now given all the information 
you need on screen structure and layout 
to write a machine code graphics game, 
but you may still be unsure of how to 
write опе. Although it is beyond the 
intended scope of this series to cover 
this topic, you might like to consider 
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using the following basic structure as 
a starting point: 


.Loop JSR moveinvaders 
JSR firealiens 
JSR firebase 
JSR movebase 
LDA lives 
BNE Loop 


You will have to work out how to 


make the base fire and the aliens move 
but in doing so you will learn how to 
design a program's structure. 


GOOD LUCK! 


[We hope to follow up this series later 
by looking at the problems involved in 
designing а complete machine code game 
based upon the ideas presented in this 
series. Fd.] s] 
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TESTING OUT YOUR MICRO (Part 4) 


THE CASSETTE INTERFACE 
by Mike Williams 


This month we continue our 
looking at the cassette 
recorder. 


series on testing out your micro, by 
interface and the use of a cassette 
The article provides help to ensure that your cassette 


recorder is properly adjusted, as well as suggestions for sorting 


out any problems that may arise. 


In this month's article I am going 
to deal with the cassette interface of 
the BBC micro. Clearly, if you suspect 
a fault, and find it difficult if not 
impossible to load programs from 
cassette, it will be equally difficult 
to load a program to test out the 
interface. This month's article does 
not therefore include а program, but 
looks at a variety of practical ways 
with which you can set up and test out 
your cassette filing system. 


Of course, any test of the cassette 
interface is as much a test of the 
cassette recorder and the setting of 
its volume and (where fitted) tone 


controls, as it is of the interface 
itself. Remember too, that with some 
cassette recorders, usually those 


designed specifically for use with a 
micro (like the BBC Data Recorder), the 
tone and volume controls have no effect 
on the signal fed into the computer, as 
the record level is controlled 
automatically. 


SETTING UP YOUR CASSETTE RECORDER 

If the tone and volume settings on 
your cassette recorder affect the 
Signal fed into the computer, then you 
will need to establish the optimum 
settings for these controls. The tone 
control, where fitted, should normally 
be set quite high (certainly on all the 


recorders we have seen), about 8 or 9 
on a scale to 10. 


Every BBC micro is supplied with a 
'Welcome' cassette and the first 
program on this can be used to achieve 
the best setting for the volume 
control. In fact, this is exactly what 
this program is there for. Set the 
volume control to a low setting, start 


the tape going following the 
instructions supplied with the 
'Welcome' cassette, and very slowly 


increase the volume setting until you 
continually and reliably load this test 
program. You may find it worth while to 
mark these "'correct' settings on your 
recorder for future reference. It is 
also worth checking at this stage that 
you can type in a short program, and 
reliably save and then reload this on 
your micro. 


If you do use the 'Welcome' tape as 
described, remember that. it is. a 
possibility (however remote) that your 
machine has been supplied with a poor 
copy of this cassette. If you suspect 
this to be the case then consult with 
your dealer. 


You can also buy 'head cleaning' 
tapes for use with cassette recorders, 
though these do have an abrasive 
effect, and are not to be recommended. 
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Cleaning fluid sold specifically for 
this purpose is definitely preferable. 
Keeping the heads clean is probably 
more important when 1% is to be used 
with a computer than for just playing 
music. Опе wrong note will hardly be 
noticeable, but one wrong bit in a 
program may make it unusable! 


GENERAL FAULT FINDING 

There are a number of practical 
ideas that you can try out if you 
suspect a problem in loading a cassette 
file. Knowing exactly where best to set 
the volume and tone controls for 
optimum results is clearly important, 
and this should ideally be done with 
any new cassette recorder before trying 
to save and load programs. 


Another very good standby in case of 
potential failure is to have one or 
more cassettes, which you can normally 
rely on, and which you can keep just 
for use in situations like this. So, 
make sure the settings are correct, and 
try loading one of your 'test' tapes. 


One indication of the correct 
working of the cassette interface is 
the regular clicking of the relay 
inside the micro during loading or 
Saving. If you hear no clicks at all 
then your cassette interface, or the 
micro in general, may be at fault. If 
you hear only one initial click, and no 
more, then the micro is not receiving 
any kind of recognizable signal, even a 
poor one. This is exactly what will 
result if the cassette recorder is 
disconnected, for example, but may also 
indicate a fault in the cassette 
recorder. 


One of the common causes of poor 
recorder performance is poor head 
alignment. With this problem, you will 
very often find that you can save and 
load your own programs, but not those 
from other sources. If you suspect that 


35 


recorder needs adjustment, then you are 
strongly recommended to consult your 
dealer on this. 


Another item that may cause problems 
is the cable connecting the cassette 
recorder to the micro. If one of the 
wires has a break in it or has become 
detached from the socket at either end, 
then this will clearly affect the 
system. Such a fault may not be 
immediately apparent. For example, it 
may be impossible to record, and hence 
load, any new programs of your own, 
whereas older programs, and those you 
purchase, may load with no problems at 
all. The surest way to check, is to 
swap your normal cable with one from а 
fully working system, and see if that 
makes any difference. 


One useful idea is to listen audibly 
to the computer tape, either while 
trying to load, or just on its own. If 
you cannot hear anything, then assuming 
a good tape, the trouble is likely to 
be in the cassette recorder. If you are 
not familiar with the rather ghastly 
Sound of a computer program, then it is 
worth a brief listen at least once. 


Cassette tapes also vary in quality. 
If you often get problems trying to 
load programs from a particular 
software company, then the cause may be 
poor quality tapes rather than any 
failing in your cassette system. Тһе 
same is true for tapes that you buy for 
your own recordings, and here it is 
worth paying more for known quality. 


Finally, you would be surprised at 
how many people have been convinced 
they have a major problem, only to find 
the 'Pause' button on the cassette 
recorder was on! 


Next month we shall be looking at a 
program to help test out the other 
ports and interfaces to be found on 


the head, alignment оп your cassette the BBC micro (model B). 82 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


SINGLE KEY BAD PROGRAM RECOVER - M.C.Behrend 


*KEYOM$-PA.:?M$-13:M$?1-0:REP.REP.N$-M$43:REP.N$-N241:U. ?2N$«320RN$-M$»250: 2NS=1 3 
:M$23-N$-M$:P.M$2?1*2564M$22,"7M$:M$-N$:U.M$?1»51270RINKEYO«»-1 :M$21-M$210R128:P."f 


urther M Bee МН а 
This will recover as much meaningful program as it is ab 


e to, so that the user can 


list the program again and delete or amend the corrupted lines. This is convenient 
but not as comprehensive as the Rescue program in BEEBUG Уо1.1 No.8. 
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Imagine, if you will, that you're a 
builder and you've got to build a wall 
across a piece of ground. Imagine also, 
that you have an insatiable appetite 
for truffles (?!). What do you do when 
you find out that the said piece of 
ground bares richly this fruit of your 
desires? Well as you're a keen sort of 
brick-layer, you build towards these 
little delights of course. But there 
are problems (you knew that there would 
be, didn't you?). You've got to watch 
out for the Killer Grass ! (I dare say 
you knew that's what it would be as 
well). 


This game is fairly self explanatory 
and makes good use of the Beeb's 
graphic and sound facilities. Тһе 77" 
and 'X' keys control the left and right 
directions that your bricklayer takes 
with his wall. You will see it grow up 
the screen in plan view. When the wall 
goes off the top of the screen, it will 
immediately reappear at the bottom. Be 
careful not to build the wall over the 
top of itself though, as this is as bad 
as building over the killer grass. 


After traversing the field a few times 
successfully you'll find that the game 
will get progressively more 


challenging. When you have successfully 
completed seven walls, a new field of 
truffles will appear. 


As а mason, you build a wall across 
the garden happily eating t 
truffles! (b,,%,+,+,4,!) 


But alas, if hit a tuft of 
killer grass 
you, sniff ,DIE! 


The same applies if you hit you 
own wall. A 


Complete seven valis and get a 
new screen. 


But don't be deceived! 
The screens get progressively harder. 


м, 
[4 t 
to finish 


So there we are, one of the games 
based on gluttony and salvation rather 
than genocide and galactic megadeath. 


210 
220 


REM Program TRUFFLE НОМТ 

REM Version В1.2 

REM Author T. Moody-Stuart 

REM BEEBUG June 1984 

REM Program Subject to Copyright 


MODE 7 

ON ERROR GOTO 530 

DIM А5(7) 

hisc$-500 
hisc$-"BEEBUG" 
PROCinit 

REPEAT 
MODE 2 

PROCdefine 

REPEAT 
VDU 23;11,0;0;0;0; 
PROCsetup 

N$-0 

REPEAT №=№%+1 
PROCplay 

UNTIL dead$-1 OR N$-7 
5С%-5С%%100 
М%-М%%20 

$-(R$ MOD 7)+1 
FOR N$-1 TO 4 
SOUND 1,-15,50%(8%%10),5 
І$=ІМКЕҮ (25) 
NEXT N$ 
FOR N$-5 TO 2 STEP -1 
SOUND 1,-15,50+ (N$*10) ,5 
І$=ІМКЕҮ (25 
NEXT N$ 
SOUND 1,-15,100,10:1%-ІМКЕҮ (50) 
UNTIL dead%=1 
*FX 15,0 
SOUND 2,-15,100,10 
I$-INKEY (100) : *FX15 


» 
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420 IF SC%>hisc% THEN hisc%=SC%:CLS:V 
DU4:COLOUR 3:INPUT TAB(5,10)"Enter your 
name ",hisc$ 
430 CLS 
440 VDU 4:COLOUR 5:PRINT TAB(2,9)"His 
core = ";hisc$ 
450 PRINT TAB(2,14) "Scored" TAB (9,15) " 
by"TAB(12,16) ;hisc$ 
460 5С%-0:М%-50 
470 PRINTTAB(0,24)"SPACE to continu 
eit 
480 PRINT"ESCAPE to finish" 
490 REPEAT UNTIL GET-32 
500 UNTIL FALSE 
510 END 
520 : 
530 ON ERROR OFF:MODE 7 
540 IF ERR<>17 REPORT:PRINT" at line 
"ERG 
550 END 
560 : 
1000 DEFPROCdefine 
1010 Х%-500 
1020 М%-50 
1030 R$-1 
1040 VDU 23,240,8,8,28,28,62,62,62,62 
1050 VDU 23,241,42,20,42,20,42,20,42,20 
1060 VDU 23,242,20,42,20,42,20,42,20,42 
1070 VDU 23,243,62,62,62,127,127,127,9 
3,93 
1080 VDU 23,244,0,17,106,106,60,28,62, 
255 
1090 FOR ҮҮ%-1 TO 7 
1100 READ AS(YY%) 
1110 NEXT YY$ 
1120 RESTORE 
1130 DATA 6,><,%,7,%,7,! 
1140 dead$-0 
1150 ENDPROC 
1169 : 
1170 DEFPROCsetup 
1180 VDU 5 
1190 CLS 
1200 FOR N$-1 TO M$ 
1210 T$-INT (RND (5) ) 
1220 IF T$-5 THEN N$-AS(R$):T$-(R$ MOD 
2)*5:ELSE NS=CHRS (244) :Т%=2 
1230 GCOL 0,T$ 
1240 MOVE RND(1200) „КМО (1000) -200: PRIN 
T N$ 
1250 NEXT N$ 
1260 ENDPROC 
1270 : 
1280 DEFPROCplay 
1290 Ү%-80 
1300 REPEAT Y$-Y$410 
1318 GCOL 0,1 
1320 MOVE X$,Y$ :PRINT CHR$240 
1330 MOVE X$,Y$-20:PRINT CHR$241 
1340 MOVE X$,Y$-40:PRINT CHRS241 


1350 MOVE X$,Y$-60:PRINT CHR$243 

1360 GCOL 0,7 

1370 MOVE X$,Y$-40:PRINT CHR$242 

1380 MOVE X$,Y$-60:PRINT CHR$240 

1390 IF INKEY(-98) THEN Р%--10:Х%-Х%ғр% 
1400 IF INKEY(-67) THEN P$-10:X$-X$4P$ 
1410 POINT$-POINT (Х%+30,Ү%+10) 

1420 IF POINT$-3 OR POINT$-0 THEN 1460 
1430 IF POINT%=-1 THEN PROCok:GOTO 1460 
1440 IF РОІМТ%-5 OR POINT$-6 THEN 5С%- 
SC$*(1ü*R$):SOUND1,-15,50,5:GOTO 1460 
1450 dead$-1:Y$-1000:GOTO 1490 

1460 5С%=5С%+1 

1470 VDU 4:COLOUR 3:PRINT ТАВ(0,0) "Hi 
:";hisc$"  Score:";SC$:VDU 5 

1480 SOUND 1,-15,20,1:SOUND 2,-15,0,1 
1490 UNTIL Ү%-1000 

1500 ENDPROC 

1510 : 

1520 DEFPROCOk 

1530 IF P$--10 THEN X$-X$41270 ELSE X$ 
-Х%-1270 

1540 ENDPROC 

1550 : 

1560 DEFPROCinit 

1570 PRINT TAB(12,12)CHR$141 CHR$129"T 
RUFFLE HUNT" 

1580 PRINT TAB(12,13)CHR$141 CHRS129"T 
RUFFLE HUNT" 

1590 PRINT TAB(5,20)"Press any key.... 
" 


1600 T$-GET 

1618 CLS 

1620 PRINT 

1630 PRINT CHR$132"As а mason, you bu 
ild a wall across" 

1640 PRINT CHR$132"the garden happily 
eating the" 

1650 PRINT TAB(8) ;CHRS141;CHRS134;CHRS 
136"truffles!. | (&,»€,*,^ p+, ,1) " 

1660 PRINT TAB(8);CHR$141;CHR$134;CHR$ 
136"truffles! (5,><,%, ,*,^, 1)" 

1670  PRINT'CHRS$132"But alas, if you h 
it a tuft of"'TAB(10) ;CHR$130"killer gr 
ass" 

1680 PRINT CHR$132"you, sniff ,DIE!"' 
'CHR$132"The same applies if you hit your" 

1690 PRINT CHR$132"own wall." 

1700 PRINT'CHR$129"Complete seven wall 
S and get a" 

1710 PRINT TAB(19) ;CHRS129"new screen 
."''CHR$132"But don't be deceived!" 

1720 | PRINT CHR$132"The screens get p 
rogressively harder." 

1730 PRINT' TAB (10) ;CHRS129"Z left" 
"ТАВ (10) ;CHR$129"X right" 

1740 PRINT ТАВ (10) ;СНЕ$129"ЕЅС to fi 
nish" 

1750 PRINT TAB(5,23)"Press any key....." 


1760 Т%-СЕТ 
1770 ENDPROC sa 
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GRAND PRIX CAR RACE (32K) 


by Jeremy Graves 


You know how unusual it is to find 
games for two players on the Beeb? Well 
here's one. Both players assume the 
roles of racing drivers, each with 
their own controls at opposite ends of 
the keyboard. It's then a question of 
'driving' your car round the track as 
fast you can (without hitting anything) 
and beat your opponent across the 
winning line (sounds just like the real 
thing doesn't it?). 


Acceleration апа braking are 
provided by the "0" and "А" keys for 
driver 1 and 'P' and ';' keys for 
driver 2. Cornering, and we emphasise 
that this IS cornering, for driver 1 
and 2 respectively, is done with 'S' 
an 'D'i. and '$* a ii Mon” (Full 
instructions are provided on the screen 
when the program runs). 


The  race-track is displayed in 
colour on the screen, as might be seen 
from one of those Goodyear balloons. 
There are only two cars waiting on the 
Starting grid, which is just as well 
(one yellow one and one white). After 
the fourth warning siren it's up to 
you. Engine revs are indicated Бу the 
pitch of the engine noise generated for 
each vehicle. A lap round the track may 
take about 2 minutes (well that's our 
experience anyway, but without the 
obstacle of a second car going round as 
well!). So with the option of as many 
as twenty laps you could set upa race 
lasting for аз long as three quarters 
of an hour, if you can concentrate that 
long! 


Due to the exacting nature of 
handling a formula racing car (think of 
the expense!), we think that there's a 
serious recommendation to be made that 
only one driver at a time is let loose 
on the track to start with. 


TECHNICAL NOTES 

Please note that the large amount of 
data at the end of the program is the 
plan for the race track; as such, апу 
errors should be immediately apparent 
on the screen when you run the program. 
However, you could quite well change 
the DATA statments to redesign the 
track having once mastered this one. 


GRAND PRIX 
By J.GRRUES 
INSTRUCTIONS: 


FOR LEFT PLAYER FOR RIGHT PLAYER 
*Q^ ACCELERATE *P* ACCELERATE 
78” BRAKE 7%7 BRAKE 


76” TURN LEFT 7%” TURN LEFT 
“0” TURN RIGHT 71” TURN RIGHT 


YELLOW CAR WHITE CAR 


THE RACE STARTS AFTER FOUR SHORT BEEPS 


HOW МАНУ LAPS IM THE RACE (1-200? 


10 REM PROGRAM GRAND PRIX 
20 REM AUTHOR J.GRAVES 
30 REM VERSION B@.5 
40 REM BEEBUG JUNE 1984 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
100 MODE! 
110 CLEAR 
120 PROCtitle 
130 PROCinit 
140 PROCdefine 
150 PROCtrack 
160 PROCstart 
170 ТІМЕ=0 
180 REPEAT 
198 PROCprintnew 
200 PROCrenew 
210 F$-0 
220 *FX21,0 
230 IFINKEY(-129) THENGOTO34@ 
240 F$-1 Я 
250 IFINKEY(-82) ТНЕМС%(0)-С%(0)-1:ІЕ 
С%(0)--1 ТНЕМС%(0)-7 
260 IFINKEY(-51) ТНЕМС%(0)-(С%(0):1)М 
OD8 
270 IFINKEY(-73) ТНЕМС%(1)-С%(1)-1:ШЕ 
С%(1)--1 ТНЕМС (1) =7 
280 IFINKEY(-89) ТНЕМС% (1) = (С% (1) +1)м 


008 » 
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290 IFINKEY(-17) АМрА%(0)<60 ТНЕМА% (0 
) =A% (Ø) +1 

300 IFINKEY(-66) ANDA%(@)>@ THENAS$ (0) 
-А%(0)-1 

310 IFINKEY(-56) ANDA$(1)«60 ТНЕМА (1 
)2A$ (1) +1 

320 IFINKEY(-88) ANDA%(1)>@ ТНЕМА%(1) 
-А%(1)-1 

330 *FX15,0 

340 IFF%=1THENSOUND1,1,A%(@) ,255:SOUN 
D2,1,A%(1) „255 

350 ЕОВС1%-0Т01:Х%(С1%)-Х%(С1%)- 
(С1%)) *A$ (C1$) ) :Ү$ (C1$) 2Y$ (C12) +C( 
$)) *A$ (C12) :NEXT 

360 PROCcheck 

370 PROCprintold 

380 UNTILCAR$»0 ORL$(0)»-TL$ ORL%(1)> 
-TL$ 

390 ІЕР%(0)>0 ORPZ(1)»0 THENPROCcrash 
:GOTO430 

400 *FX15 

410 PROCprintnew:FORD$-0TOl0000:NEXT 

420 IFL%(@)>L%(1) THENCAR$-0 ELSECAR$ 
=] 


(S(C$ 
C$ (C1 


430 IFCAR$-0 THENPS-"YELLOW" ELSEPS$-" 
WHITE" 

440 CLS 

450 *FX21,0 

460 COLOUR2: PRINTTAB (15,2) ; " GRAND PE 


X" :COLOURI : PRINTTAB (15,3) ;" 
470 ІЕР%(0)>0 ORP$(1)»0 THENGOTO520 
480 PROClaptime 
490 COLOUR2:PRINTTAB (9,12) "THE ";P$;" 

CAR WON" 
500 PRINTTAB(2,14) "WITH A QUICKEST LA 

P TIME OF ";RB3;" secs" 

510 GOTO530 

520 COLOUR2:PRINTTAB(9,12)"THE ";PS;" 
CAR CRASHED" 

530 COLOUR3:PRINTTAB(11,17) "ANOTHER R 

ACE (Y/N)" 

540 *ЕХ15 
550 AS=GETS: IFAS<>"Y" ANDAS<>"N" THEN 
GOTO540 


560 IFAS="Y" ТНЕМСОТО100 
570 MODE7:PRINTTAB (10,10) "BYEEE" 
580 END 
598 : 
1000 DEFPROCdefine 
1010 VDU23,225,0,0,0,0,0,0,0,0 
1020 VDU23,226,255,255,255,255,255,255 
,255,255 
1030 VDU23,227,255,254,252,248,240,224 
,192,128 
1040 VDU23,228,255,127,63,31,15,7,3, 1 
1050 VDU23,229,1,3,7,15,31,63,127,255 
1060 VDU23,230,128,192,224,240,248,252 
‚254,255 
1070 VDU23,231,60,126,255,255,255,255, 
2552255 
1080 VDU23,232,252,254,255,255,255,255 
,254,252 
1090 VDU23,233,255,255,255,255,255,255 
,126,60 
1100 VDU23,234,63,127,255,255,255,255, 
127,63 
1110 VDU23,235,255,255,255,90,90,90,90 


VDU23,236,90,90,90,90,90,255,255, 
VDU23,237,129,66,36,24,24,36,66,1 
VDU23,238,90,126,90,24,24,219,255 
VDU23,239,8,30,14,223,250,112,120 
VDU23,240,224,231,66,255,255,66,2 
VDU23,241,24,120,112,250,223,14,3 
VDU23,242,219,255,219,24,24,90,12 
VDU23,243,24,30,14,95,251,112,120 
1200 VDU23,244,7,231,66,255,255,66,231 
1210 VDU23,245,16,120,112,251,95,14, 30 
1220 VDU23,250,4,74,114,87,205,171,170 


1230 VDU23,251,0,4,12,40,50,84,84,0 
1240 ENDPROC 


1260 DEFPROClaptime 

1270 RB$-10900000:FORC2$-1TOL$ (CAR) : IF 
LT$(CAR$,C2$)«RB$ THENRB%=LT% (CAR% ,C2%) 

1280 NEXTC2$ 

1290 ЕВ%-ЕВ%/100 

1300 ENDPROC 

1310 : 

1320 DEFPROCcheck 

1330 FORC2$-0TO! 

1340 ІЕС%(С2%)-0 ТНЕМР% (C22) -РОІМТ(Х%( 
С2%) +16,Ү$ (С2%) +4) » 
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1350 IFC$(C2$)-1 THENP$ (C2$) =POINT (X2 ( 
C2%) *28,Y$ (C22) -4) 

1360 ІЕС%(С2%)-2 THENP$ (C2%) =POINT (X$ ( 
C2$) *32,Y$ (C23) -16) 

1370 ІЕС%(С2%)-3 THENP% (C22) -POINT (X$ ( 
C23) +32, Y% (C23) -32) 

1380 ІЕС%(С2%)-4 THENP% (C2%) =POINT (X$ ( 
C2$)416,Y$ (C2$) -32) 

1390 ІЕС%(С2%)-5 THENP$ (C22) =POINT (X$ ( 
C23) , Y$ (C23) -32) 

1400 IFC%(C2%)=6 THENP$ (C2%) =POINT (X$ ( 
C2$) -4,Y$ (C2$) -16) 

1410 ІЕС%(С2%)-7 THENP$ (С2%) =POINT (X% ( 
C2$) ,Y$ (C23) ) 

1420 IFX$(C2$)«SX$ (Ø) ANDX$(C22)»SX$ (0 
)-50 ANDY$(C2$)«SY$(0)*20 АМОТІМЕ>ОТ% (C 
2$)-4000 ТНЕМІ,% (C2%) =L% (C2%) +1 :LT% (C23, 
L$ (C2%) ) =TIME-OT% (C2%) :OT% (С2%) =TIME:FO 
RC2$-0TO1 : COLOUR24C2$ : PRINTTAB (TX$ (C2%) 
r TY% (C2$) ) ;L$ (C2$) : NEXT 

1430 NEXT 

1440 IFP$(0)-0 АМОР%(1)-0 THENGOTO!460 

1450 ІЕР% (0) =0 THENCAR$-2 ELSECAR$-1 

1460 ENDPROC 

1470 : 

1480 DEFPROCprintold 

1490 VDU5:FORC2$-0TO!:GCOL3,24C2$ : MOVE 
OX$ (C2$) ,OY$ (C2%) : PRINTCHRS (238+0C% (C2$ 
) ) : NEXT 

1500 VDUA 

1510 ENDPROC 

1520 : 

1530 DEFPROCprintnew 

1540 VDU5:FORC2$-0TO! : GCOL3 , 24C2$ : MOVE 
X% (C2$) , Y$ (C2%) : PRINTCHRS (2384C$ (C23) ) : 
NEXT 

1550 VDUA 

1560 ENDPROC 

1570 : 

1580 DEFPROCrenew 

1590 0Х%(0)-Х%(0) :0Y$ (Ø) -Y$ (Ø) :0Y$ (1) 
Y$ (1) :0X$ (1) =Х% (1) :0C$ (0) =C% (Ø) :0C$ (1) 
C$ (1) 

1600 ENDPROC 

1618 : 

1620 DEFPROCcrash 

1630 VDU5 

1640 PROCprintnew:VDU5 

1650 CAR%=CAR%-1 

1660 GCOL3,24CAR$:MOVEX$ (CAR) , Y$ (CAR$ 
) s PRINTCHRS (2384C$ (CARS) ) 

1670 GCOL@,2:MOVEX% (CAR%) , Y% (CAR%) : PRI 
NTCHR$250 

1680 ССОГ,0,1:МОУЕХ% (CAR) , Y$ (CAR) : PRI 
NTCHR$251 

1690 VDU4 

1700 *ЕХ15 

1710 SOUNDO,-10,14,25:FORD$-0TOl0000 :N 
EXT 

1720 ENDPROC 

1738 : 


tou 
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1748 DEFPROCstart 

1750 PROCpr intnew: TIME=0 

1760 FORC2%=@TO6 :COLOUR1+(C2% MOD2) :PR 
INTTAB (8,1) ; STRINGS (4, CHR$226) 

1770 FORD$-0TOIl900:NEXTD$ 

1780 ІЕС2%/2-ІМТ(С2%/2) SOUND2,-15,200 
5 

, 

1790 МЕХТС2% 

1800 COLOUR2:PRINTTAB (8,1) ;"*GO*" 

1810 PROCrenew: PROCprintold 

1820 ENDPROC 

1830 : 

1840 DEFPROCtitle 

1850 *FX15 

1860 VDU23;8202;0;0;0; 

1870 COLOUR2: PRINTTAB (14,2) ; "GRAND БЕТ 
Х":СОГО0ОЕЛ : PRINTTAB (14,3) "7777777777 
1880 COLOUR3:PRINTTAB(14,5)"By J.GRAVE 


S" :COLOUR2:PRINT' '"INSTRUCTIONS:"'''" F 
OR LEFT PLAYER"SPC(7)"FOR RIGHT PLAYER" 
1890 PRINT'" 'Q' АССЕГЕВАТЕ"ЅРС (8) "'P 
' ACCELERATE"''" “А! BRAKE"SPC(13)"'+! 
BRAKE" 

1900 PRINT'" 'S' TURN LEFT"SPC(9) "'*' 
TURN LEFT"''" 'р' TURN RIGHT"SPC(8)"! 


]' TURN RIGHT"''SPC(4) "YELLOW САВ"5РС(1 
2)"WHITE CAR" 

1910 PRINT''" THE RACE STARTS AFTER FO 
UR SHORT BEEPS" 

1920 COLOUR3: PRINTTAB (3, 28) SPC (39) : PRI 
NTTAB(3,28)"HOW MANY LAPS IN THE RACE ( 
1-20) "; : INPUTTL$ 

1930 ІЕТІ,%>20 ORTL$«1 THEN GOTO!920 

1940 CLS 

1950 ENDPROC 

1960 : 

1970 DEFPROCinit 

1980 DIMS (7) ,C(7) ,P$ (1) ,X$(1) , Y$(1) ,OX 
$ (1) ,0Y$ (1) ,C$ (1) , A2 (1) „ОС (1) , SX$ (1),S 
Y$ (1) ,LT$ (1,20) ,OT$ (1) ,L$ (1) , TX$(1) , TYS 
(1) 

1990 ENVELOPE 1,1,1,1,0,1,1,1,90,0,0,- 
90,90,90 

2000 *FX16,0 

2010 C$-1:FORA$-45TO3l6STEP90:S (C£) =ST 
N (RADA$) :C (C$) =COS (RADA$) :C$2C$42: NEXT: 
5(0)-0:5(2)-1:5(4)-0:5(6)--1:С(0)-1:С(2 
)20:C (4) 2-1:C(6) -0 

2020 Х% (0) =980:Ү$ (0) -124:X2 (1) -980:Y2( 
1)294:C$ (0) =6:С% (1) =6 

2030 FORC2%=9TO1 : SX% (C22) =X% (C22) : SY% ( 
C23) =Y% (C2$) : NEXT 

2040 САВ%-0 
2050 ENDPROC 
2060 : 

2070 DEFPROCtrack 
2080 RESTORE3000 
2090 COLOUR! :ЕОВС%-0Т012395ТЕР80 
2100 READBS:FORC2$-1TO80 
2110 B$-ASC(MIDS$ (B$,C2$,1)) -48 » 
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2120 VDU (225+B%) 

2130 NEXTC2$,C$ 

2140 COLOUR2:PRINTTAB (21,18) ; "LAPS" 

2150 PRINTTAB(21,21) ; "A-Q":TX$ (0) -23:T 
Y$ (90) 221 

2160 COLOUR3: PRINTTAB (21 , 23) ; "B-0" : TX% 
(1) =23:TY% (1) 223 

2170 ENDPROC 

2180 : 

3000 DATA"1111111111111111111111111111 
111111111111120000311111120000000000000 
0000000000311" 

3010 DATA"10090000111112000000000000000 
000000000901100000031000000000000000000 
9000000000001" 

3020 DATA"1000000010000000041111111111 
111111700001100060001 000000001 200000000 
0000000000001" 

3030 РАТА"1000100010000000010000000000 
000000000001 10001 0001 000000001 000000000 
0000000000041" 

3040 ГАТА"100010001000000001 0091111111 
111111111111100010001 000000001 000000000 
0000000000031" 

3050 DATA"1000100010000000415000000000 


900003190091100010000000000010000000000 
0000000100001" 

3070 РАТА"1000100000000000100000000000 
0000001 0000110001000000000001 00000000020 
0000000100001" 

3080 РАТА"1000150000000004100111111110 
000000100001100031111111111110010000001 
0000000100001" 

3090 РАТА"1000000000000000000100000010 
0000001 0000110000000000000000001 0000001 
0000000100001" 

3100 ГАТА"1000000000000000000111111110 
000000100001111111111111111111110000001 
0000000100001" 

3110 ГАТА"1200000031110000031111111110 
00000019000901100000000031000000010000001 
0000000100001" 

3120 РАТА"1000100000010001000111111110 
000000100001 10001 5000000004100000000000 
0000000100001" 

3130 РАТА"1000115000000411000000000000 
900004100001100031111111111111111111111 
111:111200001" 

3140 DATA"1000000000000000000000000000 
000000000001150000000000000000000000000 


000000000001100010001000000011111111111 9000000000041" 
1111111500001" 3150 ГАТА"1111111111111111111111111111 
3060 DATA"1000100080000000120000000000 11211111111 1WWWWWWWWWWWWiWWWWWWWWWIWWH 
" 
WWWWAWWWWWWIAW 5-22 
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E R TIONS - J.Uys (Pretoria) 

Basic programmers longer in the tooth may be aware of this useful technique. 
Faster use of trig. functions in Basic can be made by storing values, prior to use, 
in an array used as a look-up-table (if you have the Space). Plotting a circle in 
this way can be done four times faster than by the inclusion of the calculations of 
the coordinates within the PLOT statement itself. For example, set up two arrays for 
holding sin and cos function results, construct a loop to calculate entries into 
these at useful intervals and, fill them up, then construct a second loop to PLOT 
the contents of the arrays. 


USR HINT - Laurie Nicolson 

Here's а reminder. If you use the USR construct to obtain the status register of 
the 6502, do not use the DIV instruction to shift it to the right. Mask off the top 
byte of the integer obtained (from USR) first. This is because if the sign bit of 
the status register (which is the MSB of the integer) is set, then Basic thinks the 
integer is a signed and therefore negative 2's complement number and may give 
unexpected results. = 


If you really do miss a WHILE statement, here is the offer of 
structure for 

WHILE Х%<100 DO Х%=Х%+1 
(Now hold on to your hats !...) 


REPEAT IF X$«100 THEN X%=X%+1:UNTIL FALSE ELSE UNTIL TRUE 


an equivalent 


(but is it structured ?). =] 
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BACK ISSUES (Members only) 

All back issues are kept in print (from 
April 1982). Send 90p per issue PLUS an 
A5 SAE to the subscriptions address. 
This offer is for members only, so it 
is ESSENTIAL to quote your membership 
number with your order. Please note 
that the BEEBUG Reference Card and 
BEEBUG supplements are not supplied 
with back issues. 


SUBSCRIPTIONS 
Send all applications for membership, 
subscription renewals, and subscription 


queries to the subscriptions address. 


MEMBERSHIP COSTS: 
U.K. 
£5.40 for 6 months (5 issues) 
£9.90 for 1 year (10 issues) 


PROGRAMS AND ARTICLES 


All programs and articles used are paid 
for at around £25 per page, but please 
give us warning of anything substantial 
that you intend to write. In the case 
of material longer than a page, we 
would prefer this to be submitted on 
cassette or disc in machine readable 
form using  "Wordwise",  "Minitext 
Editor" or other means. If you use 
cassette, please include a backup copy 
at 300 baud. 


HINTS 


There are prizes of £5 and £19 for the 
best hints each month. 


Please send all editorial material to 
the editorial address below. If you 


require a reply it is essential to 
quote your membership number and 
enclose an SAE. 4 
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Membership £16 for 1 year. 
Middle East £19 
Americas and Africa £21 
Elsewhere £23 
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BEEBUG NEW ROM OFFER 


EA SOTA ENTREE AT PT TIE ELLA STE LETTE ES TE I EEE TOE RT IDOLE РУПЕ ЗАННАН ЫНЫ GENEVE RR LTS ELE P EIDE 
1.2 OPERATING SYSTEM 


A special arrangement has been agreed between Acorn and BEEBUG whereby BEEBUG members may obtain the 1.2 operating system 
in ROM at the price of £5.85 including VAT and post and packing. 

The ROM will be supplied with fitting instructions to enable members to install it in their machine. 

If the computer does not subsequently operate correctly, members may take their machine to an Acorn dealer for the upgrade to be 
tested, which will be done at a charge of £6.00 plus VAT. This charge will be waived if the ROM is found to have been defective. If the 
computer has been damaged during the installation process, the dealer will make a repair charge. 


NEW ROMS FOR OLD 


5» 
4% EXCHANGE YOUR 1.0 FOR THE 1.2 


We can now exchange your old 1.0 operating system for the new 1.2, free of charge. To take advantage of this offer, please send your 1.0 
(supplied on eprom with a carrier board), in good condition to the address below. 
£5 FOR YOUR OLD 1.0 


If you have the 1.0 operating system and have already bought a 1.2, we will exchange the 1.0 (supplied on eprom with a carrier board) for 
a £5 voucher. This voucher may be used against any purchase from BEEBUGSOFT. 


ADDRESS FOR 1.2 OS:- 
ROM Offer, BEEBUG, PO Box 109, High Wycombe, Bucks, HP11 2TD. 
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BEEBUGSOFT 


RTPL'S SIDEWAYS ROM EXPANSION BOARD 


SPECIAL PRICE TO MEMBERS £39.88 inc. 
Save £5.78 on normal price of £44.78 


* 


Simply plugs into the BBC Micro "E ком, | frons | lome 


* No soldering necessary = 


* Increases the sideways ROM capacity e © гө re e 
to 16 
* Fully buffered - allows all sockets ЛІ ешын ЫДЫ UM (ROM UJO РЕ Баш 
to Бе used 
—1 L = 
* Complete with full and detailed ге, (6 € © € 
instruction booklet. 
| ВАМ / RAM / 
* Accepts 16K КАМ іп special Sockets ROM 12 ROM 13 ROM 14 ROMISAF — |ROMISB 
* Battery back up facility for RAM I uf ccm = = E 
(parts available directly from S 
ATPL at extra cost) “ТЕ SIDEWAYS ROM/RAM EX PANSION 
Ою ep 
AT 
* As used at BEEBUG (p) ^ [ 
2 ІС 
* Reviewed in BEEBUG vol.2 number 6 
Ers )] Бс 
Бе] Б 


HOW TO ORDER 


Please send your order with a cheque / postal order made payable to BEEBUG, and 
enclose your membership number. We are unable to supply the board to overseas 
members. 


The address for SIDEWAYS is: 


BEEBUGSOFT, PO Box 109, High Wycombe, Bucks. 
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MAGAZINE CASSETTE OFFER 


To save wear and tear on fingers and 
brain, we offer, each month, a 
cassette of the programs featured in 
the latest edition of BEEBUG. The 
first program on each tape is a menu 
program, detailing the tape's 
contents, and allowing the selection 
of individual programs. The tapes are 
produced to a high technical standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 


All previous magazine cassettes (from 
Vol.1 Ко.10) are available. 


This month's cassette (Vol.3 No.2 
includes: Zoom Graphics and the data 
file for our Zoom Treasure Hunt 
competition, two programs to create 
and play event driven music including 
the data for 'Jesu Joy of Man's 
Desiring' from Cantata No.147 by 


Hag Cassette 


ШШ! с 
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Bach, example of program design 
(HOUSE), utility to overlay functions 
and procedures, three examples from 
the Programmer's Workshop, Machine 
Code Graphics example, Truffle Hunt 
Game, Grand Prix Car Race game and 
the winning entry in our 'Niagara 
Falls' Brainteaser competition. 

All magazine cassettes cost £3.00 
each. For ordering information see 
separate order form in this month's 
magazine supplement. 


MAGAZINE CASSETTE SUBSCRIPTION 


We are able to offer members 
subscription to our magazine 
cassettes. Subscriptions will be for 
a period of one year and are for ten 
consecutive issues of the cassette. 
If required, subsriptions may be 
backdated as far as Уо1.1 No.19, 
which was the first issue available 
on cassette. This offer is available 
to members only, so when applying for 
subscription please write to the 
address below, quoting your 
membership number and the issue from 
which you would like your 
subscription to start. 


CASSETTE SUBSCRIPTION ADDRESS: 


Please send a sterling cheque with 
order, together with your membership 
number and the date from which the 
subscription is to run, to: 

BEEBUG, PO Box 109, High Wycombe, 
Bucks, НР10 8HQ. 


CASSETTE SUBSCRIPTION PRICE: 

UK £33 inc VAT and p&p 

OVERSEAS (inc Eire) £39 inc p&p 
(no VAT payable). 


BEEBUG BINDER OFFER 


BEEBUG MAGAZINE BINDER OFFER 


А hard-backed binder for ВЕЕВОС 
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reference book. Individual issues may 
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current volume as well. 


Printed in England by Staples Printers St Albans Limited at The Priory Press. 


BINDER PRICE 
U.K. £3.90 inc p&p, and VAT. 
Europe £4.90 inc p&p 

(no VAT payable). 
Elsewhere £5.90 inc p&p 

(no VAT payable). 


Make cheques payable to BEEBUG. 

Send to Binder Offer, BEEBUG, PO Box 
109, High Wycombe, Bucks, НР10 8HQ. 
Please allow 28 days for delivery on 
U.K. orders. 
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